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ABSTRACT 
1.0 ABSTRACT 


THIS IS A PDOP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF AN TK2S MAGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11 SYSTEM (Q-BUS 
OR UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG, CZTKH. SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS 
HAVE BEEN PROVIDED FOR EACH PROGRAM. 


THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, 
Soruentae DEVICE REPAIR, REFERENCE THE FOLLOWING DIGITAL EQUIPMENT 


1. CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER 
AC-S296A-AC; DATE: 14 JULY 1980. 


1.1 REVISION HISTORY 
NEW RELEASE APRIL 1984 


El 
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2.0 REQUIREMENTS 


2.1 HARDWARE REQUIREMENTS 


PDP-11 FAMILY PROCESSOR WITH 32k WORDS OF MEMORY 
TK25 MAGTAPE SUBSYSTEM CORIVE AND CONTROLLER) 
CAUTION:DIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 


2.1.1 OPTIONAL HARDWARE - 


FOUR TK2S5 CONTROLLERS PER PDP-11, ONE 
ORIVE PER CONTROLLER 


2.2 SOFTWARE REQUIREMENTS 


PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP +) 


2.3 PREREQUISITES 


FUNCTIONAL POP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


Fi 
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3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 


3.1 OPERATOR COMMANDS 


THE TK25 OIAGNOSTICS ARE POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAMS. ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN 
ame MANUAL “CIQPMAO XXDP” PROGRAMMER'S MANUAL NUMBER 


BOOT THE DIAGNOSTIC XXDP+ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 


CHMDLEO XxDP+ DL MONITOR 
BOOTED VZA UNIT 0 
28K NON-UNIBUS SYSTEM 


ENTER DATE <DD-MMM-YY>: 29-JAN-82 
RESTART ADDRESS: 152010 } 
THIS IS XXDP+ TYPE “H” OR “H/L” FOR HELP. 


-R CZTKEA 


CZTKEA.BIC 


ORS -EO 

CZTKE-A-O 

CZTKEA TK-25 FRT END FUNC @1 UNIT IS TK25 
RSTRT ADR 147642 

OR>START/FLAG:PNT : HOE 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TwO 
a Sh se ON WHICH ARE "PRINT EACH TEST NBR. AS EXECUTED” AND "HALT ON 
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3.2 HARDWARE PARAMETERS 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A "N” (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT’S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSOB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D0)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
ge ge a eal THAT A LOGICAL RESPONSE IS TO BE MADE: “Y” FOR 

Y ‘ “ ‘ 7 


UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
, TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “ UNITS ?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0. UP TO EIGHT UNITS CAN BE 
SELECTED FOR TESTING. 


Hi 
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THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? < TYPE "“Y" TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED.» 


INHIBIT ITERATIONS (L) N ? < TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 


ENABLE RAM DUMP ON ERROR (L) N? < TYPE “Y" TO DUMP 
SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSUL RUN EXAMPLES 


4.1.1 SUCCESSFUL RUN EXAMPLE - CZTKE - 


TST: 001 INITIALIZATION TEST 

TST: O02 RAM TEST 

TST: 003 COMMAND REJECT TEST 

TST: 004 WRITE CHARACTERISTICS TEST 
TST: OOS VOLUME CHECK TEST 

TST: 006 COMPLETION INTERRUPT TEST 
TST: 007 BASIC PACKET PROTOCAL TEST 
TST: 008 NON-TAPE MOTION COMMANDS TEST 
TST: 009 DMA MEMORY ADDRESSING TEST 
TST: 010 INITIALIZATION AFTER WRITE er eect TEST 
TST: 011 BASIC WRITE SUBSYSTEM MEMORY T 


OP 1 
0 TOTAL ERRS 


NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 


J1 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGE 
ERROR MESSAGE EXAMPLE 


TST: OO1 

CZTKE DVC FTL ERR 00001 ON UNIT OO TST 001 SUB 000 PC: 017300 
NON-EXISTANT DEVICE REGISTER 
ADDRESS: 172500 


UNIT O DROPPED 
PASS ABRTD THS UNIT 
CZTKE EOP 1 

1 TOTAL ERRS 


KI 
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THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES 
ARE TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 (LSI) 
PROCESSOR WITH A LA-120 CONSOLE. 


THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 


ITERATIONS. THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 


S.1 RUN TIMES - CZTKE 


TEST N/I DEF 
NUMBER SECS. SECS. 

1 8 8 
2 11 11 
3 9 9 
4 10 10 
5 12 12 
6 10 10 
7 2 2 
8 8 8 
9 5 5 
10 8 8 
11 13 13 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 11 IN ONE COMMAND: 


Q.V. 1 MIN 46 SECONDS 
DEF AULT 1 MIN 46 SECONDS 
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6.0 TEST DESCRIPTIONS - CZTKE 


6.1 TEST 1 - INITIALIZATION TEST 1 


SESAEESESEAESEAASHASASAEHESESESHSEAEAESESESEESEEAAEEEESEAAEASAASEODEESE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S ‘ 
* CONTROLLER ; 


SAAAASEAEHEASEASSEESHEEEASESEASEAESEEESSEHESASEHEEASESESEEEEEEEESEAEDE 


THIS TEST VERIFIES THAT THE MODULE’S DEVICE REGISTERS ARE 

ACCESSTBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE BUILT-IN 
INITIALIZATION SELF-TEST MICRODIAGNOSTIC DIO NOT FIND ANY BASIC PROBLEMS 
WITH THE MODULE. AREAS OF LOGIC TESTED BY THE SELF-TEST SEQUENCER ARE 
AS FOLLOWS: ROM AND PIPELINE REGISTER, SEQUENCER, INTERNAL BUSES, 2901 
MICROPROCESSOR, RAM AND TRANSPORT STATUS FLOPS. THIS TEST INITIALIZES 
THE CONTROLLER BY ISSUING THE 3US INIT SIGNAL VIA A RESET INSTRUCTION, 
OR BY WRITING INTO THE TSSR RicGISTER, AND THEN CHECKS THE CONTENTS OF 
THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS INDICATED BY SUBSYSTEM 
READY (SSR) AND NEED BUFFER ADDRESS (NBA) BITS BEING SET (1) AND ALL 
OTHER BITS (EXCEPT A17, A1l6, AND OFL, WHICH ARE IGNORED FOR THIS TEST) 
BEING CLEARED (0). IF THE CONTENTS OF THE TSSR ARE NOT AS EXPECTED, AN 
cop ie ISSUED LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE 
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6.2 TEST 2 - RAM TEST 


SRRAREAEDAEEEEERESEREAEEERESEREAEADERAEAERDAREEAEAEREDEDEDDEREEEDEE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 
# CONTROLLER * 
Prrrrrrrrrrrrrr rrr rrrritriitiiriiitiitiiTTiT tty 


THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE CONTROLLER CAN 
PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT EACH RAM 
LOCATION IS UNIQUELY ADDRESSED (IE: THAT ONE AND ONLY ONE LOCATION IS 
ACCESSED BY ANY PARTICULAR ADDRESS). THESE TESTS ARE PERFORMED BY THREE 
SUBTESTS DESCRIBED BELOW. 


6.2.1 TEST 2, SUBTEST 1: - 


THIS SUBTEST VERIFIES EACH LOCATION BY PERFORMING THE FOLLOWING SEQUENCE 
FOR EACH ADDRESS 0-377 (OCTAL): 


1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB+1 (VIA A 
HI-WRITE BYTE). 


2. THE ADDRESSED RAM LOCATION IS READ, THEN WRITTEN INTO THE LOW 
BYTE OF THE TSBA. 


3. THE LOW BYTE OF THE TSBA IS CHECKED TO SEE IF IT CONTAINS THE 
bene TERN ORIGINALLY WRITTEN; A DISCREPANCY IS REPORTED AS 


4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN WRITTEN INTO 
TSDB+1 CHI-BYTE WRITE), TO CAUSE THE LOCATION UNDER TEST TO 
AGAIN BE READ INTO THE LOW BYTE OF TSBA. THE LOW BYTE OF TSBA 
IS AGAIN CHECKED AND DISCREPANCIES REPORTED. 


6.2.2 TEST 2, SUBTEST 2: - 


‘ THIS SUBTEST USES THE SAME RAM READ/WRITE TECHNIQUES AS SUBTEST 1, 
EXCEPT THAT MEMORY IS FILLED WITH ZEROS AND A ONES WORD IS “WALKED” DOWN 
THROUGH. PRIOR TO THE ALL ONES WRITE TO MEMORY THE MEMORY IS CHECKED TO 
BE SURE THAT THE ZERO WORD HASN'T “PICKED” A BIT. 


6.2.3 TEST 2, SUBTEST 3: - 


THIS SUBTEST IS SIMILAR TO SUBTEST 2, EXCEPT THAT MEMORY IS FIRST SET TO 
ALL ONES AND A BYTE OF ZEROS IS “WALKED” DOWN THROUGH MEMORY BEGINNING 
AT LOCATION TOP-2. 


Ni 
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6.3 TEST 3: COMMAND REJECT 


Pyeviririririitiviririrrrrrrrrirrirrrrrrrrrrrr rrr rrr 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S “ 


# CONTROLLER ‘ 
SARARAASEAASASASASLASASACSALESAREAAAEEAEAEAAAEAALASAALEAEESEASEEAEEE 


THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE CHARACTERISTICS 
ARE REJECTED DUE TO THE NEED BUFFER ADDRESS (NBA) BIT BEING SET IN ISSR, 
AND THAT THE TSBA, AND THE TSSR REGISTERS ARE SET IN THE PROPER STATE 
AFTER EACH COMMAND IS REJECTED. THIS TEST CHECKS THE MICROPROCESSOR 
SEQUENCING, BASIC COMMAND DECODING, AND DATI OMA HANDLING. THE TEST 
CONTAINS TWO SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS 
COTHER THAN WRITE CHARACTERISTICS) WITH THE INTERRRUPT ENABLE BIT (IE) 
BIT CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMAND; SUBTEST TWO PERFORMS SIMILARLY TO SUBTEST 1 BUT SETS 
THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN INTERRUPT IS 
GENERATED WHEN THE COMMAND IS REJECTED. THE SUBTEST 1 SETS UP THE 
INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED INTERRUPTS. THE COMMAND 
WORD IN THE COMMAND SUFFER IS INITIALIZED TO 100000 (OCTAL) AND THE 
REMAINING THREE WORDS IN THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE 

. PATTERNS. THEN THE FOLLOWING SEQUENCE IS PERFORMED: 


1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR, PROPER 
INITIAL CONDITIONS ARE VERIFIED. 


2. TSOB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO START 
PROCESSING. 


3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET, AN 
ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 


4. THE CONTENTS OF THE TSSR ARE CHECKED. TSSR IS CORRECT IF IT 
CONTAINS EITHER OCTAL 102206 OR 102306 (BIT © DEPENDS ON THE 
STATE OF THE TAPE TRANSPORT). 


S. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN THE 
INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) IE: TSBA 
SHOULC POINT TO THE COMMAND PACKET. 


6. USING THE MAINTENANCE MODE WRAP AROUND FUNCTIONS, THE COMMAND 
IMAGE BLOCK IN THE CONTROLLER‘S RAM 20 - 27 COCTAL)) ARE CHECKED; 
THE SHOULD CONTAIN A COPY OF THE FOUR COMMAND PACKET WORDS AS 
SET UP IN CPU MEMORY. 


7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED TO THE 
NEXT PATTERN NOT CONTAINING WRITE CHARACTERISTICS; €.G., THE 
REMAINING THREE WORDS OF THE COMMAND BUFFER ARE SEQUENCED WITH 
PSEUDO-RANDOM DATA. IF THE COMMAND WORD HAS NOT REACHED ITS 
MAXIMUM VALUE (17777+1) THE TEST SEQUENCE IS REPEATED. 


CZTKEA TK25 FRT 
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6.4 TEST 4 - WRITE CHARACTERISTICS 


CORAEEDAAEAAAEAEEDAEEEEAEEEAEEEEEDEEEEDEREROEEDOREDEDEREDORES 
¢ NOTE: IF THIS TEST DETECTS A FAILURE REPLACE THE TK25'S a 
@ CONTROLLER * 


SHOARHHARHKRAHAAAHARHRHHAHAHAASHHAHACAGHKOEAHAAADADLHOHRELHAHEAEOARHHOO 


THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS COMMAND. 
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS DATA BLOCK ARE 


THE TSSR IS HANDLED PROPERLY, AND THAT A PROPER MESSAGE PACKET IS 
STORED, WHERE APPROPRIATE. THIS TEST DOES NOT CHECK THAT THE VARIOUS 
FUNCTIONS ENABLED BY or afta ti can MODE DATA BITS OPERATE PROPERLY; 


NO RRUPTS SHOULD 
PROGRAM RUNS AT PROCEESOR PRIORITY ZERO, WITH THE INTERRUPT SERVICE 
ROUTINE SET UP TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS A 
a oN IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN THE ROM 


THIS TESTS VARIOUS MICROPROGRAM SEQUENCES, COMMAND DECODING, OMA LOGIC, 
AND BASIC PACKET PROTOCAL HANDLING. THIS IS THE FIRST TEST IN WHICH 

DATA DMA CYCLES (FOR STORING THE MESSAGE PACKET) ARE PERFORMED. ANY 
ERRORS IN THE BODY OF THE TEST (IE: ERRORS OTHER THAN INITIALIZATION 
ERRORS RELATED TO THE TRANSPORT BUS) DEFINITELY INDICATES A BAD CONTROLLER 


6.4.1 TEST 4, SUBTEST 1: - 


VERIFIES BASIC STANDARD OPERATION CUSING PROPER MESSAGE BUFFER AND 
LENGTH DATA IN AN INCREMENTING SERIES OF VALUES FOR THE FOURTH 
CHARACTERISTICS DATA IN THE CHARACTERISTICS DATA BLOCK.). AFTER THE 
COMMAND IS EXECUTED FOR EACH VALUE OF THE FOURTH CHARACTERISTICS DATA 
WORD, THE PROGRAM VERIFIES THAT: 


1. THE TSSR IS CORRECT, INCLUDING A CHECK THAT THE NBA BIT IS 
CLEARED AND THAT NORMAL TERMINATION WAS ACCOMPLISHED. 


THAT A PROPER MESSAGE PACKET IS STORED. 


THAT THE COMMAND PACKET CHRACTERISTIC DATA, AND MESSAGE PACKET 
IMAGE BLOCKS IN CONTROLLER RAM ARE CORRECT. 


SEQ 14 
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VERIFIES THAT THE COMMAND IS REJECTED AND THAT THE NBA BIT DOES NOT GET 
CLEARED IF NONZERO BITS ARE SET INTO ANY RESERVED OR UNUSED FIELD WITHIN 
THE FIRST THREE COMMAND PACKET WORDS. 


6.4.3 TEST 4, SUBTEST 3: - 


VERIFIES THAT THE COMMAND IS REJECTED AND THAT THE NBA BIT DOES NOT GET 
CLEARED IF THE MESSAGE BUFFER ADDRESS SPECIFIED IN THE CHARACTERISTICS 
DATA BLOCK DOES NOT SPECIFY A LEGAL ADDRESS. 


D2 
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6.5 TEST S: VOLUME CHECK 


PyYvTYititiriiiiiiriiiiiiiiiitiiirirrrrrrrrrrrr rrr 
# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE ‘HE TK25'S 4 


¢ CONTROLLER ; 
SHASAHAAEAASASASSHASHASSAAASHEASHARASHEHASEHAAHKEHASHEEEHEOEEEEEEOEEEE 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD WITHIN 
THE CONTROLLER AND APPEARING IN XSTO, IS SET BY INITAILIZE AND CLEARED By 
EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE CvC SET. IT IS ALSO 
VERIFIED THAT A WRITE CHARACTERISTICS WITH THE CvC BIT CLEAR DOES NOT 
AFFECT THE STATE OF THE VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME 
CHECK, THAT OF PREVENTING OR ALLOWING A TAPE MOTIN COMMAND DEPENDING ON 
WHETHER VOLUME CHECK IS SET OR CLEAR , IS NOT CHECKED By THIS TEST; 

eS ee enee IS CHECKED IN THE INDIVIDUAL TESTS OF TAPE MOTION 


THE TEST PROCEEDS AS FOLLOWS: 
1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 
2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CvC=0) 


3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT vCK DOES NOT 
CHANGE (REMAINS AT 0). 


4. A WRITE CHARACTERISTICS COMMAND IS ISUED WITH CvC=1 AND THE VCK 
BIT IN XSTO IN THE MESSAGE BUFFER IS EXAMINED; THE VCK BIT 
SHOULD BE CLEAR (0). 


5S. A WRITE CHARACTERISTICS COMMAND IS ISUED WITH CvC*0 AND THE VCK 
BIT IN XSTO IN THE MESSAGE BUFFER IS EXAMINED; THE VCK BIT 
~SHOULD REMAIN CLEAR (0). THIS SHOULD CAUSE RAM LOCATION O TO 
BE WRITTEN TO ALL 1'S SINCE 2901 REGISTERS 10 AND 11 
SPECIFYING THE RAM ADDRESS, SHOULD BE 0. RAM LOCATION IS 
VERIFIED BY LOW BYTE OF TSBA WHICH SHOULD CONTAIN ALL 1’S. 


6. THE ENTIRE RAM IS SCANNED. LOCATION O SHOULD CONTAIN ALL 1'S 
ANO THE REMAINING LOCATIONS, EXCEPT FOR THE MESSAGE BUFFER 
IMAGE AREA, SHOULD CONTAIN 0. OISCREPANCIES ARE REPORTED. AN 
ERROR AT THIS POINT IS MOST LIKELY DUE TO A ROM, PIPELINE OR 
SEQUENCER PROBLEM OR A TIMING PROBLEM, 


CZTKEA TK25S FR 
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6.6 TEST 6 - COMPLETION INTERRUPT 


Pyytiririririrritririiiitirirriiiriir rrr rrr 
¢ NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S & 
# CONTROLLER & 


SAARRHAASEARAAASARASASALAASHHASASAEAEHEHSESESASEAEHAAESEAEEESAEEEOEE 


THIS TEST VERIFIES THAT AN INTERUPT IS GENERATED AT THE COMPLETION OF 
THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT ENABLE (IE) BIT IN 
THE COMMAND HEADER WORD IS SET. THIS TEST CHECKS THE FUNCTIONING OF THE 
INTERRUPT LOGIC AND BASIC PROCESSING OF THE IE BIT. 


THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT SERVICE 
ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE CHARACTERISTICS 
COMMAND IS ISSUED WITH THE IE BIT SET (1). IT IS VERIFIED, WHERE 
APPROPRIATE , THAT THE STATUS BIT IN XSTO OF ANY MESSAGE PACKET IS SET 
AND THAT A COMPLETTION INTERRUPT IS GENERATED. FINALLY A SEQUENCE OF 
TWO COMMANDOS IS ISSUED, THE FIRST WITH IE*1, AND THE SECOND WITH IE=0. 
IT IS VERIFIED THAT NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND 
AND THAT THE IE BIT IN xSTO IS O. 


SEQ 17 


Fe 
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6.7 TEST 7 - BASIC PACKET PROTOCAL 


PORRARASEAAALEEEEEERADEDADERERERAEREEEEEADEDESEEEEDEEEEEDEEEEEEDDS 
*# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 
# CONTROLLER * 


SRALAAAAEASAHAAARAEEESEASABAADESASAELASREAASEAAEAASEEEAESEEHEAEKEEADEE 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF 

THE ACK BIT IN THE COMMAND HEADER WORD, AND THE 
REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


6.7.1 TEST 7, SUBTEST 1: - 


VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMAND OPERATES PROPERLY 
WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE DISABLED (ERI=0 ON PREVIOUS 
WRITE CHARACTERISTICS COMMAND). CHECKS THAT TSSR IS UPDATED PROPERLY 
AND THAT NO INTERRUPT IS GENERATED (EVEN IF THE IE BIT IN THE COMMAND 
WORD IS SET) AND THAT NO MESSAGE PACKET IS STORED. 


6.7.2 TEST 7, SUBTEST 2: - 


VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMAND OPERATES PROPERLY 
WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE ENABLED (ERI=1 ON PREVIOUS 
WRITE CHARACTERISTICS COMMAND). CHECKS THAT TSSR IS UPDATED PROPERLY 
AND THAT AN INTERRUPT IS GENERATED CIF THE IE BIT IN THE COMMAND WORD IS 
SET) BUT THAT NO MESSAGE PACKET IS STORED. 


6.7.3 TEST 7, SUBTEST 3: - 


VERIFIES THAT AFTER THE CPU GIVES UP OWNERSHIP OF A MESSAGE BUFFER (VIA 
THE MESSAGE BUFFER RELEASE COMMAND), THAT A NEW COMMAND (E.G., WRITE 
CHARACTERISTICS) IS PROPERLY EXECUTED WHEN ISSUED WITH THE ACK BIT IN 
THE COMMAND HEADER EITHER SET OR CLEAR. 


6.7.4 TEST 7, SUBTEST 4: - 


VERIFIES THAT THE REGISTER VERIFICATION REFUSED (RMR) BIT IN TSSR 
OPERATES PROPERLY WHEN A COMMAND (WRITE CHARACTERISTICS) IS BEING 
EXECUTED. THE PROGRAM ISSUES THE WRITE CHARACTERISTICS COMMAND (FROM 
ONE COMMAND BUFFER) THEN IMMEDIATELY WRITES THE ADDRESS OF ANOTHER 
COMMAND BUFFER (CONTAINING ANOTHER WRITE CHARACTERISTICS COMMAND, BUT 
WITH THIS ONE SPECIFYING DIFFERENT CHARACTERISTICS DATA). WHEN SSR 
SETS, THE PROGRAM VERIFIES THAT THE FIRST COMMAND COMPLETED PROPERLY, 
THAT RMR IS SET, AND THAT THE SECOND COMMAND IS IGNORED. 


Ge 
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6.8 TEST 8 - NON-TAPE MOTION COMMANDS 


RRARAARAREEAAEEAEREEAREREROEEAEREEROAAEEAEREEEEEEEDDEEEERERREEDE 
# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S + 


* CONTROLLER * 
SRAASAAEEAEAEEDAEAEAEEEREEREERAAEASEREREEAEEEAEEEEEAAADEEEEEREDEE 


THIS TEST VERIFIES PROPER OPERATION OF THE GET STATUS AND INITIALIZE 
COMMANDS. THREE SUBTESTS ARE USED. THE FIRST TWO VERIFY THAT THE 


RESPECTIVE COMMANDS RUN TO COMPLETION AND STORE A VALID MESSAGE PACKET. 


SEQ 19 


He 
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6.9 TEST 9 - MEMORY SOD8FSSING TEST 


CRRAREAEREEAERERASEEAEAEEEREREERES CORRODE EEAAEEREDAADEREDEDEDARE 
* NOTE: IF THIS TEST DETECTS AN ERRO? REPLACE THE TK25'S ‘ 
# CONTROLLER “ 
SERAEEASERESEAEREAEEEEERESAEREREDEDEEEREDEEEEEEDEDEDEAEEDDDEDEEDE 


THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND ACCESS 
ALL AVAILABLE CPU MEMORY ( OTHER THAN THAT OCCUPIED BY THE DIAGNOSTIC 

ANDO THE DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (DATI) AND WRITING 
(DATO). VERIFIED ARE THE POP-11 BUS DRIVERS FOR ALL AVAILABLE ADDRESS 
LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN USED FOR DMA TRANSFERS. 


6.9.1 TEST 9, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT THE CONTROLLER CAN FETCH A GET STATUS COMMAND 
FROM ALL AVAILABLE MEMORY LOCATIONS. TWO WORD BLOCKS ARE TESTED ONE AT 
A TIME BY FIRST SETTING ALL AVAILABLE MEMORY TO A BACKGROUND PATTERN OF 
1c” 252. A GET STATUS COMMAND IS THEN EXECUTED TO VARIOUS ADDRESSES IN 
EACH AVAILABLE MEMORY 4K BLOCK. THE VARIOUS ADDRESSES ARE DETERMINED BY 
FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 


6.9.2 TEST 9, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT THE CONTROLLER CAN DEPOSIT MESSAGE PACKETS TO 
ALL AVAILABLE MEMORY LOCATIONS. FIRST ALL AVAILABLE MEMORY IS SET TO A 
BACKGROUND PATTERN OF 125252. WRITE CHARACTERISTICS COMMANDS ARE THEN 
EXECUTED WITH MESSAGE BUFFER ADDRESSES SET TO VARIOUS ADDRESSES IN EACH 
AVAILABLE MEMORY LOCATION. THE VARIOUS ADORESSES ARE DETERMINED BY 
FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 


6.9.3 TEST 9, SUBTEST 3: - 


THIS SUBTEST VERIFIES THAT A CONTROLLER CAN FETCH A WRITE 
CHARACTERISTICS DATA BLOCK FROM ALL AVAILABLE MEMORY LOCATIONS. FIRST 
ALL AVAILABLE MEMORY IS SET TO A BACKGROUND PATTERNOD OF 125252. THE 
WRITE CHARACTERISTICS COMMANDOS ARE EXECUTED WITH CHARACTERISTIC DATA 
BLOCKS AT VARIOUS MEMORY ADDRESSES. THE VARIOUS MEMORY ADDRESSES ARE 
DETERMINED BY FLOATING FIRST A (1) THEN A (0) THROUGH THE ADORESS BITS. 


6.9.4 TEST 9, SUBTEST 4: - 
THIS SUBTEST VERIFIES THAT THE NXM ERROR BIT IN THE TSSR REGISTER IS SET 


WHEN ATTEMPTING TO FETCH DATA ( A CHARACTERISTIC DATA BLOCK) FROM 
SELECTED NONEXISTANT LOCATIONS. IF NXM FAILS TO SET IT IS LIKELY THAT 


Te 
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USER DOCUMENTATION 


AN LSI-11 BUS DRIVER IS FAILING TO ASSERT AN ADDRESS LINE. ADDRESSES 
at INCLUDE ALL COMBINATIONS OF HIGH ORDER ADDRESS BITS CIE: BITS 


J2 
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6.10 TEST 10 - INITIALIZE AFTER WRITE CHARACTERISTICS 


CARRERE EAEREEEEREREDEEREREREEREEAEREEREEEREDEDEEEREEEEEEREREREE 
* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 
# CONTROLLER * 


SARAEASAAASSSAASSSSEASEAAEEAAALERAEAASASASADASEAASEREADASLESEAESEEOEE 


THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMAND INVOKED AFTER A 
WRITE CHARACTERISTICS COMMAND SETS UP THE COMMAND, MESSAGE AND 
CHARACTERISTIC IMAGE BLOCK IN THE CONTROLLER RAM CORRECTLY. 


Ke 
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6.11 TEST 11 - BASIC WRITE SUBSYSTEM MEMORY COMMAND 


Pyyvrrrrirriititirriiitiiiriirir rrr 
# NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 


# CONTROLLER a 
PRAREOREAEEAAAESEEDEEEARAEAREDERREESAEEROAERESASEEDEEEREREEEEEEE 


THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A BSELO 
SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. THE TEST FURTHER VERIFIES 
MICROPROGRAM COMMAND DECODING AND HANDLING SEQUENCES. 


CEP SODRENTRT ERP TU 


\ 


002007 000 
002010 
002010 101 
002011 
002011 060 
002012 
002012 000001 
002014 
002014 001217 
002016 
002016 046052 
002020 
002020 046212 
002022 
002022 002124 
002024 
002024 002134 
002026 
002026 046436 
002030 
002030 000000 
002032 
002032 000000 
002034 
002034 000000 
002036 
002036 000000 
002040 


Le 
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-SBTTL PROGRAM HEADER 
-MCALL SVC 
svc s INITIALIZE SUPERVISOR MACROS 


*¢ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
ge 


POINTER BGNSW,BGNSFT, — BGNDU, BGNRPT , BGNSE TUP 
HEADER CZTKE,A,0,655. 


L$NAME: : DIAGNOSTIC NAME 
-ASCII /C/ 
-ASCII /2Z/ 
-ASCII /T/ 
-ASCII /K/ 
-ASCII /E/ 
BYTE O 
BYTE 0 
BYTE 0 
LSREV:: sREVISION LEVEL 
-ASCII /A/ 
L$DEPO:: 30 
-ASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 
. WORD TSPTHV 
LS$TIML:: sLONGEST TEST TIME 
-WORD 655. 
LSHPCP:: sPOINTER TO H.W. QUES. 
-WORD LS$HARD 
L$SPCP:: sPOINTER TO S.W. QUES. 
-WORD LS$SOFT 
LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
-WORD LSHW 
LSSPTP:: sPTR. TO S.W. PTABLE 
-WORD L$SW 
L$LADP:: sDIAG. END ADDRESS 
-WORD LSLAST 
LSSTA:: sRESERVED FOR APT STATS 
L$Co:: 
-WORD O 
LSDTYP:: ;DIAGNOSTIC TYPE 
. WORD f¢) 
LSAPT:: ;APT EXPANSION 
-WORD O 
LSOTP:: PTR. TO DISPATCH TABLE 


. WORD LSDISPATCH 


SEQ 24 


Baoan KERDER END FUNC #1 


022366 
022464 
000000 
003342 
104035 
000000 
021606 
022646 
022572 
021576 
000000 
000000 
000000 


Me 
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LSPRIO:: . ;DIAGNOSTIC RUN PRIORITY 
LSENVI:: . ;FLAGs DESCRIBE HOW IT WAS SETUP 
LSEXP1::— . ;EXPANSION WORD 
LSMREV::— ;SVC REV AND EDIT @ 

.BYTE C$REVISION 
BYTE CSEDIT 
LS€F:: ;DIAG. EVENT FLAGS 
.WORD 0 
‘wORD O 
L$SPC: 5 
L$DEVP ; POINTER TO DEVICE TYPE LIST 
y LsOvTYP 
LSREPP: : ;PTR. TO REPORT CODE 
j LSRPT 
LSEXP4:: 
. c¢) 
LSExXPS:: ° 
LSAUT:: ithe ;PTR. TO ADD UNIT CODE 
. L 
L$DUT:: ;PTR. TO DROP UNIT CODE 
D sou 
LSLUN:: » ;LUN FOR EXERCISERS TO FILL 
LSDESP:: sion ;POINTER TO DIAG. DESCRIPTION 
L$LOAD:: | ;GENERATE SPECIAL AUTOLOAD EMT 
EMT ESLOAD ; 
LSETP:: . ;POINTER TO ERRTBL 
LSICP:: ;PTR. TO INIT CODE 
.WORD LS$INIT 
LSCCP:: ;PTR. TO CLEAN-UP CODE 
.WORD LSCLEAN 
LSACP:: ;PTR. TO AUTO CODE 
.WORD LS$AUTO 
LSPRT:: ;PTR. TO PROTECT TABLE 
.WORD L$PROT 
LSTEST:: ; TEST NUMBER 
.WORD 0 
LSDLY:: ;DELAY COUNT 
.WORD -O 
LSHIME: : ;PTR. TO HIGH MEM 
.WORD 0 


GEIL HaRoLAle PPAR * 


000003 


172522 
000224 
000240 


N2 
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-SBTTL DEFAULT HARDWARE P-TABLE 


¢ 

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


3 -~- 
BGNHW 8 OFPTBL sDEFAULT HARD -P-TABLE 
-WORD L10000-L$HW/2 


LSHW:: 

DFPTBL:: 
~ WORD 172522 ; 2ND COF 2) REGISTERS. 
. WORD 224 ; INTERRUPT VECTOR 
. WORD PRIOS ; INTERRUPT PRIORITY. 
ENDHW 

10000: 


CZTKEA ei FRT END FUNC 01 
TABLE 


SOFTWARE P 


002132 
002132 
002134 
002134 


002134 
002136 


002140 
002142 
002144 
002144 
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B3 


SEQ 27 


-SBTTL SOFTWARE P-TABLE 


aoe 
+ THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
s PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


= 
BGNSW 
. WORD 
L$Sw:: 
SFPTBL:: 


TRANSTST:: 
NOITS:: 


SFPTBL 


L10001 -L $SwW/2 


. WORD 
. WORD 


. WORD 
. WORD 


te) sENABLE RAM DUMP IF #1 
te) ‘ ang Lica gy OPTION. 
- are s 
..NZ * INHIBIT ITERATE. 
2s. ; LOCAL (PER TEST) ERROR LIMIT 


200. s GLOBAL (PER UNIT) ERROR LIMIT 


+. 
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802 
809 .SBTTL GLOBAL EQUATES SECTION 
814 
820 
821 
822 
823 .SBTTL GLOBAL EQUATES SECTION 
825 
s¢ 
826 | THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
827 ; ARE USED IN MORE THAN ONE TEST. 
828 ie 
829 
833 002144 EQUALS ; GET STANDARD EQUATES. 
3 
; BIT DIFINITIONS 
3 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12*= 10000 
004000 BIT11*= 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4*= 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
3 
001000 BIT9*= BITO9 
000400 BIT8== BITOS 
000200 BIT7*= BITO? 
000100 BIT6** BITO6 
000040 BITS*= BITOS 
000020 BIT4*= BITOS 
000010 BIT3*= BITO3 
000004 BIT2-= BITO2 
000002 BITi== BITO1 
000001 BITO*= BITOO 


é 
s EVENT FLAG DEFINITIONS 
s EF 32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


a 
000040 EF .START== 32. s START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. : RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30, 3s CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. + A NEW PASS HAS BEEN STARTED 
000034 EF .PWR-= 28. : A POWER-FAIL/POWER-UP OCCURRED 


a 
s PRIORITY LEVEL DEFINITIONS 
‘ 


CZTKEA TK25 FRT END FUNC @1 


GLOBAL EQUATES SECTION 


834 
835 002144 


000250 


177572 
177574 
177576 
172516 


D3 
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PRIO7=#= 340 
PRTO6==* 300 
PRIOS== 240 
PRIO4*= 200 
PRIOS*= 140 
PRIO2*= 100 
PRIO1== 40 

PRIOO== 0 


; 
sOPERATOR FLAG BITS 


i 

EVL*= 4 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT=: 1000 
PRI== 2000 
IXE*= 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


KT11 ee sDEF INE MEMORY MANAGEMENT REGISTERS 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3@KT11 VECTOR ADORESS 
MMVEC= 250 
3*#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 
SRi= 177574 
SRe= 177576 
SR3= 172516 
.IF NB 
s@USER “I” PAGE DESCRIPTOR REGISTERS 
PORO= 177600 


.IF NB 

s#USER "D" PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 

UDPOR1= 177622 

UOPDR2= 177624 

UOPORS= 177626 

UOPOR4= 177630 

UOPORS< 177632 

UDPDR6* 177634 

UDPDR7= 177636 

.ENOC 

s*USER “I” PAGE ADDRESS REGISTERS 


SEQ 29 


ea 
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MEMORY MANAGEMENT DEFINITIONS 


UIPARO= 
UIPAR1= 


177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 


e 


;@USER "O” PAGE ADDRESS REGISTERS 


UDPARO= 
UDPAR1 = 


IF NB 


177660 

177662 
177664 
177666 
177670 
177672 
177674 
177676 


172200 
= 173902 
172204 
172206 
172210 
172212 
172214 
172216 


;@SUPERVISOR "“D” 
SDPORO= 172220 


SOPOR1= 
SOPOR2= 
SOPORS= 
SOPOR4 = 
SDPORS= 
SOPOR6 = 
SDPOR7= 


- ENOC 
s*#SUPERVISOR “I” 


SIPARO= 
SIPAR1= 
SIPAR2= 
SIPAR3= 
SIPAR4= 
SIPARS= 
SIPAR6= 
SIPAR7= 
IF NB 


172240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 


5 SUPERVISOR — 
SDPARO 


SDPAR1 = 
SDPAR2= 
SDOPARS= 
SDPAR4= 


172260 


172270 


PAGE DESCRIPTOR REGISTERS 


PAGE DESCRIPTOR REGISTERS 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


nENO 


T MANAGEMENT Ber INT TIONS 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
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SDPARS= 
SDPAR6= 
SDPAR7= 
. ENOC 
-ENDC 


s*KERNEL “I” PAGE DESCRIPTOR REGISTERS 


172272 
172274 
172276 


KIPORO= 172300 


;@KERNEL “D" PAGE 
DESCRIPTOR REGISTERS 
KDPDRO 


172302 
172304 
172306 
172310 
172312 
172314 
172316 


= 172320 


KOPOR1= 
KDPOR2= 
KOPOR3= 
KDPOR4 = 
KDPORS= 
KDPOR6= 
‘oo 


KIPARO= 


KDPARO= 
KDPAR1= 
KDPAR2= 
KDPARS= 
KDPAR4 = 
KDPARS= 
KDPAR6= 
KDPAR7= 
.ENOC 


172322 
172324 
172326 
172330 
172332 
172334 
172336 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


ra 


. NOC 
s;*KERNEL “I” PAGE ADDRESS REGISTERS 


NB 
; #KERNEL x PAGE ADDRESS REGISTERS 


SEQ 31 


ZTKEA TK2S FRT END F 


K-2 


REGISTER AND PACKET 


BEF INI 


G35 
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TIONS 


é 
; SOME GENERAL EQUATES. 


ERRVEC== 
TTIVEC== 
TTICSR== 
TTIBFR== 


-SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 


4 

60 
177560 
177562 


s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
s INTERRUPT VECTOR FOR CONSOLE INPUT 

s BUS ADDRESS OF CONSOLE INPUT 
s CONSOLE INPUT DATA BUFFER 


z+ 
s;BIT DEFINITIONS FOR TSSR REGISTER 


OFL= 


BIT15 
BIT14 
BIT13 
BIT12 
BIT11 


BIT10 
BIT9!BITS 
BIT7 


BIT6 
FATERR= BIT4!BITS 
TERCLS= BITS!BIT2!BIT1 


3¢ 


sSPECIAL CONDITION 

3BUS INTERFACE ERROR 
sSANITY CHECK ERROR 
sMODIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
sNEED BUFFER ADDRESS 
sEXTENDED ADDRESS BITS 
3SUB SYSTEM READY 

;OFF LINE BIT 

sFATAL TERMINATION ERROR CODES 
; TERMINATION CODES 


: 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


3(XSTO) 
F 
ed 


XSOTMK= 
XSORLS= 
XSOLET= 
XSORLL = 
XSOWLE = 
XSONEF = 
xSOILC= 
XSOILA= 
XSOMOT= 
XSOONL = 
xSOIE= 

xSOVCK= 
XSOPED= 
XSOWLK = 
XSOBOT = 
XSOEOT= 


sTAPE MARK DETECTED 
sRECORD LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 
sWRITE LOCK ERROR 

sNON EXECUTABLE FUNCTION 
s ILLEGAL COMMAND 


s INTERRUPT ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED ORIVE 
sWRITE LOCKED 
sBEGINNING OF TAPE 
sEND OF TAPE 


z¢ 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(XST1) 
hg 


SEQ 32 


CZTKEA TK25 FRT END FUNC @1 


TK-25 REGISTER AND PACKET DEFINITIONS 


000006 
000006 


H3 


MACRO M1200 20-APR-84 08:12 PAGE 29-1 SEQ 33 
X1.0LT = BIT1S rv aly 
X1.SPARE= BIT14 sNOT USED 
X1.COR = BIT13 sCORRECTABLE DATA ERROR 
X1.MBZ = IT12+BIT11+G1T10+B1T9+B117+B116.8115 B14 -BITS+BIT2BITO sALWAYS O 
X1.RBP = BITS READ BUS PARITY ERROR 
X1.UNC = BITL JUNCORREC TABLE DATA OR HARD ERROR 
3¢ 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
3(xST2) 
¥< 
X2.0PM = BIT1IS en oate IN PROGRESS (TAPE MOVING) 
xX2.RCE = BIT14 RAM CHECKSUM ERROR 
X2.SPARE= BIT13«BIT12-G1T11 -BIT9+BIT8 sNOT USED BY TK-25 (CALWAYS=0) 
x2.WCF = BIT1O WRITE CLOCK FAILURE CFIFO NOT EMPTIED BY TRANSPORT) 
X2.EXTF = BIT7 SIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT6 3IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
X2.REV = 000077 :IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2+BIT1I+BITO :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
3¢ 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
3(XST3) 
ies 
X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
x3. SPARE = BIT7 sNOT USED BY TK-25 
X3.0PI = BIT6 sOPERATION INCOMPLETE 
X3.REV = BITS sREVERSE 
X3.TRF «= BIT4 3s TRANSPORT RESPONSE FAILURE 
x3.0CK = BITS ;DENSITY CHECK 
X3.MBZ *BIT2+BIT1 sNOT USED ALWAYS O 
X3.RIB = BITO ' gREVERSE INTO BOT 
s¢ 
;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
3(XST4) 
od 
X4.HSP = BIT15 sHIGH SPEED 
x4.RCE = tie recon COUNT EXCEEDED 
X4.TSM = BIT13 TRANSPORT SPECIAL MODE 
xX4.MBZ = BI112-BIT11-B1110-B119-B1"8 sNOT USED ALWAYS O 
X4.WRC = 000377 sWRITE RETRY COUNT FIELD 


3¢ 


é 
;TSSR TERMINATION CODES (BIT 0-2) 


3° 


TSREJ= 342 sCOMMAND REJECTED 
UNREC= 6 sUNRECOVERABLE ERROR 


; 
sDEVICE REGISTER OFFSETS 


CZTKEA TK25 FRT END FUNC @ 
TK-25 REGISTER AND PACKET bEFINITIONS 


177776 
177776 
177776 
177776 
177777 
177777 
000000 


000001 


000003 


13 
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TSBAs= -2 
TSBAL*= -2 
TSOB== -2 
TSOBL*= -2 
TSBAH== -1 
TSDBH== -1 
TSSR== 0O 

TSSRH== 1 


3? 

; TSOB ADORESS BIT DEFINITIONS 
ge 

A1716 = BIT1+BITO 


+ 
; COMMAND DEFINITIONS 


Z@ 

P.GETSTAT = 17 
P. INIT = 13 
P.CONTROL * le 
P .FORMAT * is 
P.POSITION = 10 
P.WRTSUB = 6 

P.WRITE ° 5 

P.WRTICHAR = 4 

P READ ° 1 


SEQ 34 


sTSOB/TSBA REGISTER 
;TSOB/TSBA REGISTER 


+ TSOB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTER 
3TSSR REGISTER HIGH BYTE 


sADDRESS BITS 17;16 ARE IN 1:0 


;GET STATUS 

s INITIALIZE 

sCONTROL COMMANDS 
sFORMAT 

sPOSITION 

sSUBSYSTEM WRITE 
sWRITE 

;WRITE CHARACTERISTICS 
sREAD 


; COMMAND PACKET HEADER WORD BIT DEFINITIONS 


ACK =» BIT15 
CvC = BIT14 
oPpP = BIT13 


BIT12° 
aaa 
Ie = BIT? 

.FMT= BIT6:BITS 

CMD 37 


VVUVVVUVUV 
& 


3¢ 
; CONTROL COMMAND MODE CODES 
3 


PC .RELEASE = 00256 
PC .REWIND = 14256. 
PC .NOOP = 24256. 
PC. IEREW = 40256 
PC .ERASE = 50256 


3° 
; CONTROLLER RAM DEFINITIONS 


Ties 

RMCHBEG = 167 
RMCHEND = 200 
RMPKTBEG= 20 
RMPKTEND= 27 
RMMSGBEG= 104 


s;BUFFER AVAIL FOR CONTROLLER 
;CLEAR VOLUME CHECK 

sREVERSE SEQUENCE OF DATA BITS 
sSWAP BYTES IN MEMORY 
SEXTENDED COMMAND MODE FIELD 

s INTERRUPT ENABLE 

sPACKET HEADER TYPE (CALWAYS=0) 
sMAJOR COMMAND FIELD 


sRELEASE BUFFER 
sREWINOD 


3 - 
sREWIND IMMEDIATE INTERRUPT 
sSECURITY ERASE 


sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
sCHARACTERISTICS IO DATA END RAM ADDRESS 
sCOMMAND PACKET BEGIN RAM ADDRESS 

sCOMMAND PACKET END RAM ADDRESS 

sMESSAGE BUFFER BEGIN RAM ADDRESS 


ZTKEA_ TK2S FRT END F 
K-25 REGISTER AND PACKET 
1011 000117 

1012 
1013 
1014 
1015 
1916 
1017 
1018 000006 
1019 000010 
1020 000012 
1021 000014 
1022 000016 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 000002 
1032 000004 
1033 000006 
1034 
1035 000010 
1036 
1037 
1038 
1039 
1040 000000 
1041 000001 
1042 000002 
1043 000004 
1044 
1045 
1046 
1047 
1048 000000 
1049 000001 
1050 000002 
1051 000003 
1052 000004 
1053 000005 
1054 000006 
1055 000007 
1056 000010 
1057 000011 
1058 000020 
1059 000021 
1060 000022 
1061 000023 
1062 000024 
RTS 
1063 
1064 
1065 
1066 
1067 000200 


“SEF INIT 


J3 
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IONS 


RMMSGEND = 
3° 


117 


sMESSAGE BUFFER END RAM ADDRESS 


; 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


xSTO#= 6 
xSTi== 8. 
xST2*= 10. 
xST3*= 12. 
xXST4=*= 14, 


3¢ 


sEXTENDED STATUS REGISTER O (WORD 4) 
sEXTENDED STATUS REGISTER 1 CWORD 5) 
sEXTENDED STATUS REGISTER 2 (WORD 6) 
sEXTENDED STATUS REGISTER 3 (WORD 7) 
sEXTENDED STATUS REGISTER 4 (WORD 8) 


; 
sOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


og 
se 
= 4 
PKBCNT = 6 
EXBCNT=10 


;LOW ORDER CHARACTERISTIC DATA POINTER 


SEQ 35 


sHIGH ORDER CHARACTERISTIC DATA POINTER 


sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


7+ 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 
BSEL1 =1 
SEL2 es 2 
SELDATA = 4 


;BYTE O 
;BYTE 1 
:WORD 2 
sWORD 3 


3¢ 
;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


PwW.NOP = 0 
PwW.RDORAM *§ 
PW.WTRAM 2‘ ¢ 
PW.RFIFO = 3 
Pu.WFIFO = 4 
PW.ROSTAT 2 § 
PW.WCTL = 6 
PW. WFMT = 7 
PW.WMISC = 10 
PW.WNPR * ii 
PW.D22 = 20 
Pw.011 * 21 
PW.D13 = 22 
PW.NO1311 = 23 
PW.RDEXT » 24 


3¢ 

sBSEL1 CODES FOR WRITE TAPE CONTROL 
“~ 

WC. IFAD = BIT7 


;NO-OP 
sREAD RAM 
sWRITE RAM 
sREAD FIFO 
;sWRITE FIFO 
sREAD STATUS 

sWRITE TAPE CONTROL 

sWRITE TAPE FORMAT 

sWRITE MISCELLANEOUS 

sWRITE NPR CONTROL 

300 MICROTEST 22 

:00 MICROTEST 11 

3:00 MICROTEST 13 

s;DISABLE MICROTEST 11 AND 13 
sREAD ExT. 


sIFAD - FORMATTER ADDRESS 


TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 


KS 
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1068 000100 WC. IOTAD » BIT6 sITADO - TRANSPORT ADDRESS BIT O 

1069 000040 we. I1TAd = BITS sITAD1 - TRANSPORT ADDRESS BIT 1 

1070 000020 WC. ISRESV = BIT4 sIRESVS - RESERVED #5 

1071 000010 WC. IREW * BITS ; IREW - REWIND 

1072 000004 wC. IRWU = BIT2 3; IRWU - REWIND AND UNLOAD 

1073 000002 WC. IFEN = BIT1 ;IFEN - FORMATTER ENABLE 

1074 000001 wc .1GO = BITO ;GO 

1075 

1076 3+ 

ore ;6SEL1 CODES FOR WRITE FORMAT 
= 

1079 000200 WF. IHISP = BIT7 sIHISP - HIGH SPEED 

1080 000100 WF .IWRT = BIT6 sIWRT - WRITE 

1081 000040 WF .IREV = BITS ; IREV - REVERSE 

1082 000020 WF. IWFM = BIT4 s IWFM - WRITE FILE MARK’ 

1083 000010 WF .IEDIT = BITS sIEDIT - EDIT 

1084 000004 WF . IERASE = BIT2 sIERASE - ERASE 

1085 000002 WF .I3SRESV = BIT1 ;IRESV3 - RESERVED @3 

pte 000001 WF. I4RESV = BITO ;IRESV4 - RESERVED 04 

1 

1088 

1089 7° 

rey ;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
ke 

1092 000200 MS .EXT = BIT7 s INVERT SENSE OF EXTENDED FEATURES SWITCH 

1093 000020 MS.RSFIFO = BIT4 sRESET FIFO AND INPUT PARITY ERRORR 

1094 000010 MS. .RSTAPE = BITS sRESET TAPE STATUS IN 2 FLIP-FLOPS 

1095 000006 MS.ATTN = BIT2!BIT1 sATTENTION TRIGGER FIELD 

rte: 000001 MS .RSD = BITO sRESET TIMER A,B THEN DELAY TIMES IN SEL2 
ze 

pte ; MS.ATTN SUBCODES 
g = 

1100 000000 MSA.NOP = O#2 :NO-OP CNOTHING TRIGGERED) 

1101 000002 MSA.VOL = 142 sSIMULATE ON-LINE/OFF-LINE TRANSISTION 

1102 000004 MSA.NRAM= 242 sFORCE NON-FATAL RAM ERROR CFORCES ERRCODE 54) 

ies 000006 MSA.FRAM= 342 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3° 

ioe ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
ed 

1107 000200 NP .IR = BIT7 ; INTERRUPT REQUEST (0-1 TRANSITION) 

1108 000100 NP .OUT = BIT6 ;TAPE DATA DIRECTION OUT (0 IN) 

1109 000040 NP .LOOP = BITS ;ENABLE TRANSPORT LOOPBACK 

tet 000020 NP .WRP = BIT4 ;WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3° 

i 3; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
i 

1114 

1115 000200 $2.D0IM = BIT? sWORD #9 BYTE 2 DATA IN MISS 

1116 000100 S2.ILW = BIT6 3 ILW H 

1117 000040 S2.OUTRDY = BITS 3 OUT RDY H 

1118 000020 S2.INRDY = BIT4 3 IN ROY H 

1119 000010 S2.ATIMR * BITS 3 TIMER A FLAG H 

1120 000004 S2.BTIMR = BITe2 3 TIMER B FLAG H 

1121 000003 S2. UNDEF = BIT1+BITO 3 CUNDEF INED ) 

1122 100000 S1.PARIN = BIT15 ;WORD #8 BYTE 1 PARIN H 

1123 040000 $1. I2RESV = BIT14 3 IRESV2 

1124 020000 $1. I11RESV = BIT13 3 IRESV1 
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REGISTER AND PACK 1” FINITIONS 

1125 010000 $1. IE0T = BIT12 3 IEOT L 

1126 004000 $1. 1IDENT « BIT11 3 IIDENT H 

1127 002000 $1.ICER = BIT10 3 ICER H 

1128 001000 $1. IFMK « BITS ; IFMK H 

1129 000400 $1.IHER = BITS : IHER H 

1130 000200 SO. ISPEED = BIT7 ;WORD #8 BYTE O ISPEED H 

1131 000100 SO.IRDY = BIT6 ; IRDY L 

1132 000040 SO. IONL = BITS 3 IONL L 

1133 000020 SO.ILOP = BIT4 8 ILOP L 

1134 000010 SO. IDBY = BITS 3 IOBY L 

1135 000004 SO. IRWD = BIT2 3 IRWD L 

1136 000002 SO. IFBY = BIT1 3 IFBY L 

1137 000001 SO.IFPT = BITO : IFPT L 

wee 3 SPECIAL KEYBORD STUFF FOR MOVER PROGRAM 

1140 177560 TKS #177560 sKEYBOARD STATUS REGISTER 

1141 177562 TKB #177562 sKEYBOARD DATA REGISTER 

1142 177564 TPS =177564 ;CONSOLE PRINTER STATUS REGISTER 

1143 177566 TPB =177566 ;CONSOLE PRINTER DATA REGISTER 

1144 007776 HIMEM 2007776 sHIGH MEMORY MASK VALUE. 

1145 3 CONTROLLER DEFINITIONS 

1146 3 

1147 H 

1148 174400 CSR =174400 :STATUS AND CONTROL REGISTER 

1149 174402 BAR #174402 ;0L ADDRESS REGISTER 

1150 174404 DAR 2174404 ;PLATTER ADDRESS 

tt 174406 MPR =174406 sMULTIPURPOSE REGISTER 
o 

1153 3 

1154 5 

1155 : 

1156 : 

1157 ; CONTROLLER COMMANDS 

1158 : 

1159 ; 

1160 000004 OLGETS =4 ;GET STATUS COMMAND 

1161 000006 SEEK 26 3;SEEK TRACK AND — SELECT 

1162 000010 OLROHD =-10 sREAD SECTOR HEADER 

1163 000014 READ =14 ;READ COMMAND 

tre 000016 DLRONH -16 sREAD SECTOR NO HEADER CHECK 
+ 

1166 : 

1167 : 

1168 : 

1169 3 

1170 : 

1171 000001 READY =1 sORIVE READY BIT IN STATUS REG. 

1172 000013 OLSR =13 . ;STATUS AND RESET 

1173 177730 DLERR =177730 sMASK FOR COVER OPEN 

1174 000006 OLUN =6 sHEADS UNLOADED 

1175 000177 OLCYL #000177 sMASK FOR CYLINDER ADDRESS 

te: 100200 OLONER #100200 sDONE SET OR ERROR SET BITS 
; ~ 

1178 : 

1179 : 

1180 ; 


1181 177560 TTICSR = 17756C sKEYBOARD INPUT STATUS 


M3 
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1182 177562 TTIBFR = 177562 sKEYBOARD DATA REGISTER 
1183 177564 TTOCSR = 177564 sCONSOLE PRINTER STATUS REGISTER 
1184 177566 TTOBFR = 177566 sCONSOLE PRINTER DATA REGISTER 


SFECTAL MACROS AND OPDEFS.— 


N3 
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-SBTTL SPECIAL MACROS AND OPDEFS. 


3¢ 
;SAVE GENERAL REGS 1 TO 5 
3 _ 


-MACRO SAVREG 
JSR RS ,REGSAV 
.ENDM 


s+ 
: MACRO TO FORCE AN ERROR 


“MACRO FORCERROR TAG ,NOTSSR 
aeeT NDF LISTALL, .NLIST 
.IF 8 NOTSSR 
MOV TSSRCRS),R1 sREAD TSSR 
-ENOC 
MOV FORCER,FORCER 
BNE TAG 3;BR IF YES 
-NLIST 
.IIF NOF LISTALL, .LIST 
«LIST 
.ENDM 
3° 
; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
H WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
H SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
. FORCER TO 177777 
H TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
i- 
— FORCEXIT TAG 


"NLIST 

TIF NOF LISTALL, .NLIST 

- MOV FORCER,FORCER 
TAG 


BMI 
-NLIST : 
-IIF NOF LISTALL, .LIST 
-LIST , 
-ENOM 


;¢ 
MACRO TO INCREMENT ERROR COUNTS 


"MACRO NEXT .ERRNO 

-NLIST 

:33.ITIF NOF LISTALL, .NLIST 
ERRNO=ERRNO+1 

s333.IIF NOF LISTALL, .LIST 

-LIST 


-ENOM 


s¢ 


sIS FORCER SET? (LEAVE C BIT ALONE) 


:IS FORCER NEGATIVE? 
;BR IF YES 


SEQ 39 


CZTKEA TK25 FRT END FUNC vig 
SPECIAL MACROS AND OPDEFS 


002244 000000 


B4 
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sMACRO TO PERFORM XOR 


«MACRO XOR A.B 
MOV 


A,-(SP) 
BIC 6.(SP) 
BIC A.B 
BIS (SP)+,8 
. ENOM 


EN*0 
.SBTTL FORCER - FORCE ERROR FLAG 


SEQ 40 


3; INITIALIZE ERROR NUMBER 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


- BY THE MACRO “IFERROR”). AN ERROR NEED NOT 


FORCER: : 0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
a 
é 


- EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


C4 
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1269 .SBTTL GLOBAL DATA SECTION 
hn 
1271 
1272 1 THE GLOBAL DATA gt ae CONTAINS DATA THAT ARE USED 
1273 :IN MORE THAN ONE T 
1274 gn0 
1275 
1276 3 
1277 3; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
th sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
3 
1280 002146 000000 EPRTSW:: -WORD O sPRINT SWITCH 
1281 002150 000000 UNITN:: -WORDB O sUNIT @ UNDER TEST. 
1282 002152 000000 QvP:: -WORDB O sQUICK VERIFY FLAG. 
1283 002154 000000 CSRADOR: : -WORD O sADDORESS OF CSR FOR CURRENT DEVICE 
1284 002156 000224 IVEC:: -WORD 224 | INTERRUPT VECTOR 
1285 002160 000200 IPRI:: -WORD PRIO4 s INTERRUPT PRIORITY. 
1286 002162 000000 TSTCNT:: -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
1287 002164 000000 LOOPCNT:: «WORD O i REMAINING IYERATION COUNT FOR TEST 
1288 002166 000000 DEVCNT:: -WORD O sNUMBER OF DEVICE UNDER TEST 
1289 002170 000000 FATFLG: -WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
1290 002172 000000 INTRECV:: -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 
1291 002174 000000 BENBSW: : -WORD O sBUFFER ENABLE SWITCH SW O-OFF;1=0N 
1292 002176 000000 EXPO: : WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
1293 002200 000000 RECV:: -WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
1294 002202 000000 ERRHI:: -WORD O sHIGH ADDRESS MEMORY ERROR 
1295 002204 000000 ERRLO:: fe] 3LOW ADORESS MEMORY ERROR 
1296 002206 RAMDATA:: BLKW 16. SDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
1297 002246 000000 RAMSIZ:: -WORD O TRAM DATA SIZE FOR PRAMPKT ROUTINE 
1298 002250 000000 RCVHIADD: : -WORD O sRECEIVED BUFFER HIGH ADDRESS 
1299 002252 000000 RCVLOADD: : -WORD O sRECEIVED BUFFER LOW ADDRESS 
1300 002254 000000 COUNT: : -WORD O sTEST COUNT PATTERN 
1301 002256 000000 DATA: : -WORD O sTEST DATA 
1302 002260 000000 TSTFLAG: : -WORD O sTEST FLAG WORD 
1303 002262 000000 TSTPTR:: -WORD O :TSTBLK POINTER 
1304 002264 000000 PRMNO: : -WORD O sPRINT ROUTINE TEMP 
1305 002266 EXPMSG: : .-BLKB 190. sEXPECTED MESSAGE BUFFER DATA 
1306 002432 RECMSG: : .BLKB 100. sRECEIVED MESSAGE BUFFER DATA 
1307 002576 TMPBFR:: -BLKB 80, s TEMPORARY STORAGE FOR PRINT 
1308 002716 000000 MESBFA:: -WORD O sSTORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 


D4 
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TSTBLK - TEST DATA TABLE 

1310 .SBTTL TSTBLK - TEST DATA TABLE 

1311 

1312 3° 

1313 3 

1314 ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

1315 3 . 

1316 ;IN SEQUENCE THE DATA IS: 

1317 3 

1318 3 ALL ZEROS 

1319 3 ALL ONES 

1320 Q WALKING ONES 

1321 3 WALKING ZEROS 

1322 3 ALTERNATING ONES AND ZEROS 

1323 3 

1324 ¢- 

1325 

1326 002720 TSTBLK:: 

1327 002720 . WORD sALL ZEROS 

1328 002722 177777 . WORD 177777 sALL ONES 

1329 002724 000001 -WORD BITO sDATA FOR WALKING ONES 

1330 002726 000002 -WORDB BIT1 

1331 002730 -WORD BIT2 

1332 002732 000010 -WORD BITS 

1333 002734 000020 .WORD BIT4 

1334 002736 000040 -WORD BITS 

1335 002740 000100 .WORD BITE 

1336 002742 .WORD BIT? 

1337 002744 000400 -WORD BITS 

1338 002746 001000 -WORDB BITS 

1339 002750 002000 -WORD BIT1O 

1340 002752 004000 -WORD BIT11 

1341 002754 010000 -WORD BIT12 

1342 002756 -WORD BIT13 

1343 002760 040000 -WORD BIT14 

1344 002762 -WORD BIT15 

1345 002764 177776 . WORD *CBITO sDATA FOR WALKING ZEROS 

1346 002766 177775 . WORD *CBIT1L 

1347 002770 177773 . WORD tCBIT2 

1348 002772 177767 ~ WORD *tCBITS 

1349 002774 177757 . WORD tCBIT4 

1350 002776 177737 . WORD *CBITS 

1351 003000 177677 . WORD tCBIT6 

1352 003002 177577 . WORD tCBIT7 

1353 003004 177377 . WORD tCBITS 

1354 003006 176777 . WORD *CBIT9 

1355 003010 175777 . WORD *CBIT10 

1356 003012 173777 . WORD tCBITil 

1357 003014 167777 . WORD *tCBIT12 

1358 003016 157777 . WORD *CBIT13 

1359 003020 137777 . WORD tCBIT14 

1360 003022 077777 . WORD *CBIT15 

1361 003024 125252 . WORD 125252 sALTERNATING ONES, ZEROS 

1362 003026 052525 WORD 052525 ;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


1363 003030 TBLEND==. 


ae eA TK2S FRT END 
GLOBAL ENVIRONMENT STORAGE 


003130 
003330 


003332 


FUNC @1 


E4 
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000000 100000 000000 
000000 000000 


177777 


000000 


3 
DUMMY : 


0,100000,0,0 
0,0,0,0,0,0,0,0 

OUFLG:: . WORD 

NODEV: : . WORD 

TEMP1:: . WORD 

TEMPe2:: . WORD 

XXCOMM: : . WORD 

FREE:: WORD 

FRESIZ:: ~ WORD 

FREEHI: . WORD 

KTFLG:: . WORD 

de repay : .WORD 

PST32QW WORD 

SIFLAG . WORD 

BADDAT . WORD 

GDDAT . WORD 

LOOPFL . WORD 

CTAB:: 

CTABM: . WORD 
. WORD 
. WORD 
. WORD 
. WORD 

CTABE:: 

;ERROR STATISTICS TABLE 

; 

3 0 ° 

3 1 e 

3 1LOXXXX = 

: 160000 = 

3 160001 = 

3 L4XXxXX = 

3 

ERTABL: .BLKW 

ERTABE: . WORD 

SKIPT: .WORD t¢) 


-SBTTL GLOBAL ENVIRONMENT STORAGE 
a 
s+STORAGE FOR DEVICE REGISTERS 


sOUMMY DEVICE REGISTERS... 
3...FOR MULTI-UNIT CHECKOUT. 


:"DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


+SOME TEMP LOCATIONS. 


3XXDP+ COMM BLOCK POINTER. 

31ST FREE MEMORY ADDRESS... 

3...AND SIZE CIN WORDS). 

;LAST WORD IN FREE SPACE 

sKT11, MEM AVAIL FLAG - 

3- .WORD O = <24K OR NO KT - 

s- NZ = >24K AND KT. 

;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
332W BLOCK ADDRESS FOR 32K START 


3 
sACTUAL DATA 
sEXPECTED DATA 


sCONF IGURATION TABLES. 
sCONFIG WORK. 


eocooo000o co SO 


*+oooo0 SCoCOoOOoONno 


1 sENO OF MEM TABLE. 
€1 WORD PER UNIT), 64 UNITS MAX: 


UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED Xxxx ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
UNIT DROPPED, NOT IDOLE AT START 

UNIT DROPPED, ENCOUNTERED XXxXX ERRORS 


64. 
0 


s1*SKIP SUBTEST O=NO SKIP OF SUBTEST 


CZTKEA TK25 FRT END FUNC 41 
GLOBAL TEXT MESSAGES 


1414 
1415 
1416 
1417 
1418 
1419 
1420 


003334 
003334 
003334 


124 


103 


113 


132 


F4 
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055 


124 


.SBTTL . GLOBAL TEXT MESSAGES 


see 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

a 


3° 
sNAMES OF DEVICES SUPPORTED 
i: 


DEVTYP <TK-25> 
LSDVTYP:: 

-ASCIZ /TK-25/ 

- EVEN 


3° 
sTEST DESCRIPTION 
hg 
DESCRIPT <CZTKEA TK-25 FRT END FUNC 01> 


LSDESC:: 
a /CZTKEA TK-25 FRT END FUNC 01/7 
.EV 


3° 

;BIT TO ASCII CONVERSION FOR TSSR REGISTER 

Ties 

TSSRBIT: : «WORD 1$,2%,3%,4%,5%,6$,7$,8% 


«WORD 9$,10$,11$,12$,13%,14$,15$%,16$% 
1%; -ASCIZ ‘SC’ 


es ASCIZ ‘BIE’ 
3$: -ASCIZ ‘SCE’ 
Aas ASCIZ ‘RMR’ 
S$ ASCIZ ‘NXM’ 
6% ASCIZ ‘NBA’ 
7$ ASCIZ ‘BIT9' 
8$ ASCIZ ‘BITS’ 
9$ ASCIZ ‘SSR’ 
10% ASCIZ ‘OFL' 
11% ASCIZ ‘BITS’ 
les ASCIZ ‘BIT4' 
13% ASCIZ - ‘BIT3' 
14% ASCIZ ‘BIT2' 
15%; -ASCIZ ‘BIT1' 
168; -ASCIZ ‘BITO' 
EVEN 


“SFIERR: |ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 


SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 

NXR: -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX;: -ASCIZ /#A ADDRESS: #806/ 

TSSX: -ASCII /#A TSBA,TSSR EXP'D: s068A,8068N/ 
-ASCIZ /#A TSBA,TSSR REC'D: #068A,806/ 

FUSI: -ASCII /ssNSA/ 


SEQ 44 


SCdsaL TES 


FRT FUNC @1 
MESSAGES 

004021 040 040 
004050 040 040 
004113 045 116 
004117 040 040 
004154 040 040 
004176 045 101 
004233 040 040 
004305 040 040 
004355 040 040 
004425 900 

004426 045 116 
004431 045 101 
004465 045 116 
004541 045 101 
004643 122 101 
004711 040 040 
004754 127 122 
005011 124 123 
005104 124 123 


MACRO M1200 20-APR-84 


USI: .ASCIZ 
NSI: -ASCIZ 
FNOINTR: 

NOINTR: .ASCIZ 
IFAULT: .ASCIZ 
INTX: ASCIZ 
NOINIT: .ASCIZ 


BRINIT: .ASCIZ 
NUL : -ASCIZ 


NULCR: .ASCIZ 
EXPGOT: .ASCIZ 
EXPGT2: .ASCIZ 
DUAD12: .ASCIZ 
PKTRAM: : 
SCME : ASCIZ 
WRTMSG: .ASCIZ 
WRTERR: .ASCIZ 
RDERR ASCIZ 
EVEN 


G4 
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7 UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

-ASCII /sNSA/ 

7 NO INTERRUPT WAS GENERATED/ 

4 _INTERRUPT FAULT/ 

/@A CPU PC: S068A TSBA: #06/ 

/ “BUS-INIT” DION’ T INITIALIZE CONTROLLER/ 
4 “SOFT-INIT” OION’T INITIALIZE THE DPU/ 

/ “BUS-RESET” DION’ T INITIALIZE THE OPU/ 


4/ 

/8N/ 

/#A EXP'D: SO6S8A, REC'D: #06/ 

/SNSA EXP'D: SO68A, SO6SNSA REC'D: SONA, 


#06/ 
/#A REGCW) WRITTEN TO: s068A REGC(R) READ; EXP’'D: s068A, REC'D: 
'RAM Contents Do Not Match Packet Sent’ 


-ASCIZ 
7 CONFIG DOESN'T MATCH MFG. MASTER/ 
‘WRITE CHARACTERISTICS Failed’ 


‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 


SEQ 45 


s06/ 


CZTKEA TK25 FRT END FUNC $1 
GLOBAL ERROR REPORT SECTION 


1513 


005262 


013746 


005727 
000000 


001402 
004777 


012746 


177770 


004426 
000001 


000004 


H4 
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-SBTTL GLOBAL ERROR REPORT SECTION 


zee 

; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
; CALLS THAT ARE USED IN MORE THAN ONE TEST. 

; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

oe 


—_— BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
NX 23 
PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
MOV NODEV, -( SP) 
MOV @NXRX, -C SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 06,SP 
JSR PC ,EXTEND 3; PRINT EXTENSION IF REQUIRED. 
ENOMSG 
10002: 


TRAP C$mMSG 


° 
3; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


a 
EXTEND: TST (PC )+ 
EXTA: ° ; O = NO EXTENSION. 
BEQ 1$ 
JSR PC ,@EXTA 3; APPEND EXTENSION TEXT. 
18: PRINTX @NULCR 3; PRINT A BLANK LINE 
MOV @NULCR, -( SP) 
MOV #1,-(S ) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 04,SP 
RTS PC 


cere ae FRT END FUNC 


ITSSR - PRINT TSSR CONTENTS 


012746 


012746 
012746 


#1 


000054 


002576 
006127 


14 
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177777 


3 


.SBTTL PRITSSR - PRINT TSSR CONTENTS 


: 
sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 

3BY A MESSAGE PRINTING ROUTINE 


3 
: INPUTS: 
F 
3 


R1 


CONTENTS OF TSSR 


. 
;SUBORDINATE ROUTINES: 
CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 


5$: 


108: 


11%: 


13%: 
15$: 


R1,R4 
@TSSRFOR,R4 
R4, -(SP) 
@TSSRFOR, -( SP) 
ose -(SP) 


be) 
@AMBTSSR 
tS + lal 


20% 
@TMPBFR,R2 
+ aia cece 


15$ 


R3 

13% 

(R1),RO 
CRO)+,CR2)> 


11$% 

o',,-1¢€R2) 
(R1)> 

10$ 

-(R2) 
@TSSDEF , oTMPBFR 
OTMPBFR, -( SP) 
@TSSDEF , -( SP) 


»R3 
@HIADDR!FATERR! TERCLS,RS 


;SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
sPRINT THE CONTENTS OF TSSR 


sGET TSSR BACK FOR CHKAMB 
sARE CONTENTS AMBIGUOUS ? 
s;BRANCH IF NOT 


;SHOW CONTENTS ARE AMBIGUOUS 


sCONTENTS OF TSSR 


sCLEAR ALL MULTIPLE BIT FIELDS 


sNO BITS ARE SET 

; TEMPORAPY ASCII BUFFER 
sASCII EQUIVALENT OF BITS 
sREMAINING BITS TO CONVERT 
sBRANCH WHEN ALL ARE DONE 
;CLEAR CARRY FOR SHIFT 
;SHIFT NEXT BIT TO CARRY 
sBRANCH IF BIT NOT SET 
sPOINTER TO BIT DEFINITION 
sMOVE ASCIZ TO BUFFER 
sMOVE ALL BITS 

s INSERT A COMMA TO TERMINATE 
sPOINT TO NEXT DESCRIPTION 
;GET THE REMAINING BITS 

s TERMINATE THE LINE 

s;PRINT THE BIT DEFINITIONS 


SEQ 47 


CZTKEA TK25 FRT 
PRITSSR - PRINT 


E 


012746 
010600 
104415 
062706 


010403 
042703 


016303 


012737 
013737 


012746 


#1 


ND_ FUNC 
TSSR CONTENTS 


000002 
000006 


177761 
006220 


006017 
000002 
000006 
177717 


006560 


006060 
000002 


000006 
000031 
176377 


005756 
000002 


000006 
100210 


005672 
002146 


005672 
002146 


005672 
000001 


000004 
005672 


002170 


002146 


002146 
005644 


002146 


20%: 


25%: 


30$: 


31$: 


310%: 
328: 


EPRT2: 


J4 
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@2,-CSP) 
SP ,RO 
C#PNTX 
#6, SP 


R4,R3 
@tCTERCLS,R3 
TCOCOD(R3), RS 
Ng 7 R3 
R3, -(SP) 
@TCOASC, -(SP) 
02, -(SP) 


oR3 
OrCFATERR,RS 
2s$ 
R3 
R3 


R3 
TSFCOD(R3),R3S 
@TFCASC ,R3 
R3, -(SP) 
@TFCASC, -(SP) 


06, SP 

#25. ,FATFLG 
R4,R3 
@tCHIADOR ,.R3 
30% 

@TEXASC ,R3 
R3, -(SP) 


@TEXASC, -(SP) 
@2,-(SP) 


06 ,SP 
+ 


1$ 
@EPRTS,EPRTSW 
EPRTSW 


310$ 
#EPRT1,EPRTSW 
EPRTSW, 32%+2 


OEPRT1,EPRTSW 
PC 


SEQ 48 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

;GET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
;CLEAR ALL BUT FATAL TERMINATION 
;D0N‘'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
3;GET THE FATAL TERMINATION CODE 
s;PRINT THE FATAL TERMINATION CODE 


sDROP UNIT AFTER THIS ERROR 

;GET TSSR CONTENTS 

;CLEAR ALL BUT EXTENDED ADDRESS 
;D0N‘T PRINT IF ZERO 

;PRINT THE EXTENDED ADORESS BITS 


;CHECK FOR MEDIA ERROR 

;BR, IF PROBABLY NOT TAPE ERROR 

; "PROBABLY MEDIA RELETED ERROR - BAD TAPE” 
sCHECK FOR THE SWITCH EMPTY 

3BR, IF SWITCH IS NOT EMPTY 

;SET SWITCH TO DEFAULT 

sPUT REAL SWITCHABLE MESSAGE IN PLACE 
sPRINT THE ERROR MESSAGE 


;RESET TO NORMAL ERROR POINTER 
;RETURN TO CALLER 


BRITSoR “PR 


FRT 
INT 


FeeRe eONTENTS 
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EPRTS: 
EPRT1: .ASCIZ 
TSSROR: 
TEXASC: 
TCOASC: 
TFCASC: 
TSSDEF : 
AMBTSSR: 

.EVEN 
TCOCOD: .WORD 
1$: .ASCIZ 
es ASCIZ 
3$: ASCIZ 
4$ ASCIZ 
5$ .ASCIZ 
6$: ASCIZ 
7$ .ASCIZ 
8$ .ASCIZ 

EVEN 
TSFCOD: .WORD 
1$: “ASCIZ 
2s ASCIZ 
3$ .ASCIZ 
4$ ASCIZ 


IKK4 


SEQ 49 


‘NSA rock tein CONTROLLERS esses: 

.ASCIZ ‘sNSA TSSR = 806’ 

-ASCIZ ‘sNSA Extended Address Bits = #06’ 
‘ASCIZ ‘sSNA Termination Class Code « sT’ 
-ASCIZ ‘sSNSA Fatal Termination Class Code - sT’ 
-ASCIZ ‘sNSA TSSR Bits Set: sT’ 

ASCIZ ‘sNSA TSSR Contents Are Ambiguous’ 
1%,2¢,3%,4¢%,5%,6$,7$,8$ 

‘Normal Termination’ 


‘Termination Condition’ 

‘Tape Status Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
'Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatal Controller Error’ 


1%,2$,3%,4$% 

‘Internal Diagnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 


cz tKea Kes Bait 


IPKT 


1632 
1633 


006712 
006712 
006716 


SNe ADDRESS CONTENTS. OF F EOMMAND 


00500 
012402 
010246 


003102 


007116 
000003 


000010 


020112 


007060 
000003 


000010 


007153 


000001 


000004 


L4 
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PACKET 


PRIPKT 


SEQ SO 


- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


; THIS ROUTINE PRINTS THE ADORESS AND CONTENTS OF A COMMAND PACKET. 
_—s ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


INPUT: 


10%: 


15$: 


20%: 
25%: 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


R4, (33 


#3, -( 


R1 

CR4)+,R2 
@PKTFRM,R1,R2 
R2, -CSP) 
R1,-CSP) 
OPKTFRM, -(SP) 
@3,-(SP) 


sSAVE THE REGISTERS 

sSAVE NO. OF WORDS IN PACKET 
sABOVE 28K UNDER TEST? 

3;68R IF YES 

3SET HIGH ORDER ADDRESS TO 0 
;COPY HIGH ORDER ADDRESS 
;GET LOWER ADDRESS 

;SHIFT BIT 15 INTO C BIT 
;AND INTO HIGH ORDER. 

;PRINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 

;68R IF NOT ABOVE 28K. 

sGET LOW ORDER ADDRESS 

;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
;GET RETURNED PAR6 ADDRESS BIAS 

;SAVE WORD NUMBER 

sGET PACKET CONTENTS 

sPRINT THE DATA 


;NEXT WORD NUMBER 

;DONE ALL PACKET WORDS? 
;LOOP TILL ALL DONE 
sJUST A COUPLE NEW LINES 


CZTKEA TK25 FRT END FUNC @1 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


1655 007056 
1656 
1657 007060 
1658 007116 
1659 
1660 007153 
1661 
1662 


000207 


045 
045 


045 


116 
116 


116 


RTS 


045 PKTFRM: .ASCIZ 
045 PKTADD: .ASCIZ 


045 PKTNEW: .ASCIZ 
EVEN 


PC 


‘SNSA Packet Word OSD1SA = #06’ 
‘SNSA Packet Address = #01805’ 


‘ SNSSINBA 


M4 


;RETURN 


SEQ 51 


, 


CZTKEA TK25 FRI END FUNC #1 


177400 


000012 


045 116 045 


3¢ 


; 
s;PRINT EXPECTED DATA, RECEIVED DATA, 


. SBTTL 


N4 
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PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


XORBF OR : 
-EV 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 oh DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO iBYTE MASK 

RO,R1 sSAVE LOW BYTE RECV 
RO,R2 sSAVE LOW BYTE EXPD 
RO,R3S sSAVE LOW BYTE XOR 


@XORBFOR,R2,R1, R3 sPRINT THE MESSAGE 
R3,-CSP) 


#RO HAS XOR ON RETURN 
;RETURN TO CALLER 


-ASCIZ 


‘sNSA EXPD: #038A RECV: SO38A XOR: 


AND XOR OF THE DATA BYTE 


#03' 


SEQ S2 


ereee TK2S FRT END FUNC @1 
PRIXOR - PRINT EXPD, RECV AND X 


1721 
1722 
1723 
1724 
1725 
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. SBTTL 


BS 


SEQ 53 


PRIXOR - PRINT EXPD, RECV AND XOR 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
— ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


LINPUTS: 
g 
3 
ry 


045 xXORFOR: . 


R1 
R2 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 EXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@XORFOR, R2,R1, Rs" sPRINT THE MESSAGE 
R3,-CSP ) 

Ri, -¢ ) 

R2,-( SP) 

@XORFOR, -( SP) 

@4,-C(SP) 

SP ,RO 

CsPNTB 

#12,SP 

R3,RO sRO HAS XOR ON RETURN 
c sRETURN TO CALLER 


‘@NSA EXPD: SO6S8A RECV: SO6S8A XOR: 806° 


BATEGO "Bat ht BYP KUNGERS as aSETPERSEPRL ERP APR 8* C812 PAGE 41 


007432 
007432 
007436 


000207 


007470 


116 


045 


C5 


SEQ 54 


.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


}ROUT INE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


’ 

; INPUTS: 

3 

3 RO OCTAL VALUE TO CONVERT 

3 Ri TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

3 - 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


s¢ 


i 
sPRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


3 
3; INPUTS: 
3 
: Ra RAM ADDRESS 
3 
ge 
PRIRAM: 
SAVREG 2SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4G sPRINT RAM ADDRESS IN ERROR 
MOV R4,-(SP) 
MOV @RAMFOR, -( SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CsPNTB 
ADD #6, SP 
RTS PC ;RETURN 
RAMFOR: .ASCIZ ‘sNSBA CONTROLLER RAM ADDRESS = 806’ 
EVEN 
.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


3° 


; 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 


IMPLICIT INPUTS 


ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ACORESS 


CZTKEA TK2S FRT 


PRIADD 


1814 
1815 
1816 
1817 
1618 
1819 
1820 


- PRINT 


ENO FUNC #1 
MEMORY ERROR ADDRESS 


013700 
013701 
010102 
006101 
006100 


010246 


002202 
002204 


007602 
000003 


000010 


116 


002202 
002204 
007716 
000003 


000010 


116 


5 
ee 
PRIADD: 


ADD 

RTS 

045 PRIAO: .ASCIZ 
-EVEN 


.SBTTL 
3° 


DS 
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ERRHI,RO 
ERRLO,R1 
R1,R2 

R1 


RO 

es sa ed 
RO, -( SP) 
OPRIAO, -( SP) 
o3, -(SP) 

SP ,RO 

CsPNTB 
#10,SP 

PC 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET HIGH ADORESSS 

sGET LOW ADDRESS 

sCOPY LOW ADORESS 

sSHIFT BIT 15 TO C BIT 

sSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


‘sNBA MEMORY ERROR ADDRESS = #01805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


3 
sPRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


3 
3 
3 
3 
3 
3 

PRITADD: 


3 
IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET HIGH ADORESSS 

sGET LOW ADORESS 

sCOPY LOW ADDRESS 

sSHIFT BIT 15 TO C BIT 

sSHIFT INTO HIGH ORDER 

sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


045 PRITO: —— 'sNSA MEMORY TEST ADDRESS + #019805' 
-EVEN 


CZ 
sP 


MACRO M1200 


@1 
DS (FORWARD AND REVERSE) COMMAND 


TKEA TK25 FRT END FUNC 
ACE - SPACE RECOR 

1822 

1823 

182. 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 007760 

1858 007760 

1859 007764 012737 000764 

1860 007772 012737 140010 

1861 010000 005703 

1862 010002 100403 

1863 010004 010337 010142 

1864 010010 000407 

1865 010012 042703 100000 

1866 010016 010337 010142 

1867 010022 052737 000400 

1868 010030 012704 010140 

1869 010034 010465 177776 

1870 010040 004737 016744 

1871 010044 103420 

1872 010046 
010046 012727 000250 
010052 000000 
010054 013727 002116 
010060 000000 
010062 005367 177772 
010066 001375 


3° 


. SBTTL 


ES 
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SPACE 


- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


; 
sROUTINE TO ISSUE A SPACE RECORDS 


sCOMMAND (FORWARD OR REVERSE) 


3 
3 INPUT: 


010150 
010140 


S$: 
010140 


10$: 
15%: 


R3 


RS 


OUTPUT: 


CARRY 


RO 


NUMBER OF RECORDS TO BE SPACED OVER 
B1IT15 CONTROLS DIRECTION 

BIT1S = 0 IS FORWARD 

BIT1S = 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


SET - SPACE RECORDS COMMANDO OK 
CLR - SPACE RECORDS FAILED 


THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 


TAPE HAS BEEN MOVED 


SIDE EFFECTS: 


#500. ,SDELAY 
#140010, 60% 


R4, TSOBCRS) 
PC ,WAITF 
20% 

250 
#250,(PC)>+ 


r) 

L#DLY CPC)» 
-6(PC) 

.-4 


sSAVE THE GENERAL REGISTERS 
sSET UP DELAY 

sSET UP COMMAND, SPACE FORWARD 
sCHECK FOR DIRECTION 

38R, IF REVERSE INDICATED 

;LOAD UP NUMBER OF RECORDS TO SPACE 


sGO DO COMMAND 

sCLEAR OIRECTION BIT 

;LOAD UP NUMBER OF RECORDS TO SPACE 
sSET REVERSE BIT IN COMMAND PACKET 
sSET UP R4& WITH PACKET ADDRESS 
sSEND OUT COMMAND 

sWAIT FOR SSR 

3BR, IF SSR IS SET AND OK 

sDELAY ABOUT .25 SECONDS 


SEQ 56 


FS 


CZTKEA TK25 FRT END FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 42-1 SEQ 57 
SPACE - SPACE RECORDS F SRWARD AND REVERSE) COMMAND 
010070 005367 177756 DEC -22(PC) 
010074 001367 BNE .- 
1873 010076 005337 010150 DEC SDELAY sBUMP DELAY Oo DOWN 
1874 010102 001356 : BNE 15% s8R, IF MORE DELA 
1875 010104 000411 BR 60$ s38R IF TROUBLE CARRY * CLEAR 
1876 010106 016501 000000 208: MOV TSSRC(RS),R1 ;READ TSSR 
1877 010112 012702 000200 MOV @SSR Re sSET UP EXPECTED 
1878 010116 020201 25%: CMP R2,R1 sARE THEY OK 
1879 010120 001401 BEQ 40% 3BR, IF EQUAL = OK 
1880 010122 000402 BR 60$ s TROUBLE EXIT 
1881 010124 000261 408: SEC ;SET CARRY NO TROUBLE 
1882 010126 000401 BR 70$ sEXIT 
1883 010130 000241 60$: cLc sCARRY CLEAR = ERROR 
1884 010132 70$; 
1885 010132 010400 MOV R4,RO sPASS PACKET ADDRESS 


1886 010134 000207 RTS PC RETURN 


G5 


CZTKEA TK2S FRT END FUNC 01 MACRO M1200 20-APR-84 08:12 PAGE 43 SEQ 58 
SPACE - SPACE RECORDS (FORWARD AND REVERSE ) “COMMA ND 


1888 F 
1889 FY 
1890 : 
soe sPACKET FOR SPACE COMMAND 
3 
1894 010136 .BLKB 10-<, - TUV2AE7> 
1896 ; 
1897 ;COMMAND WORD 
1898 010140 000000 80$: . WORD 
1899 — OF RECORDS TO BE SPACED OVER WORD 
1900 010142 000000 . WORD 
1901 010144 000000 “WORD 
1902 010146 000000 .WORD 


Bas 010150 000000 SDELAY: —_ 0) sDELAY COUNTER 


HS 


T F ® MACRO M1200 20-APR-84 08:12 PAGE 44 SEQ 59 
E ENARAL TERISTICS COMMAND 


TKEA TK25 FR 
Gat ChR aR 


ies .SBTTL WRTICHR - WRITE CHARACTERISTICS COMMAND 
1908 3° 

1909 Hy 

1910 sROUTINE TO ISSUE A WRITE CHARACTERISTICS 

1911 ;COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 

1912 8 

1913 3; INPUT: 

1914 3 

1915 3 Ra ADDRESS OF PACKET FROM TEST 

1916 3 RS FIRST DEVICE UNIBUS ADDRESS 

Bees 3 REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 

191 3 

1919 sOUTPUT: 

1920 3 

1921 3 RO TSSR CONTENTS 

1922 8 CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
foae 3 CLR - WRITE CHARACTERISTICS FAILED 

1924 3 

ioae s IMPLICIT OUTPUT: 

1 3 

1927 3 MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

1928 3 SOFTWARE SWITCHES SET AS FOLLOWS: 

1929 3 BENBSW = BUFFER ENABLE SWITCH ON OR OFF 
1930 3 

1931 : 

1932 ;SIDE EFFECTS: 

1933 ; 

1934 : 

1935 :- 

1936 

1937 010152 WRTCHR 

1938 010152 SAVREG ;SAVE THE GENERAL REGISTERS 
1939 010156 005037 002174 CLR BENBSW ;CLEAR BUFFER ENABLE SWITCH 
1940 010162 010465 177776 10$: MOV R4,TSOBCRS) 3SEND OUT COMMAND 

1941 010166 004737 017060 JSR PC,CHKTSSR ;WAIT FOR SSR 

1942 010172 103401 BCS 20$ ;68R, IF SSR IS SET AND OK 
1943 010174 000423 BR 60$ 368R IF TROUBLE CARRY = CLEAR 
1944 010176 016501 000000 208: MOV TSSRCRS),R1 sREAD TSSR 

1945 010202 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 

1946 010206 032701 000100 BIT oOFL .R1 sWAS OFF LINE SET IN TSSR 
1947 010212 001402 BEQ 25% ;8R, IF NO OFL SET 

1948 010214 052702 000100 BIS @OFL ,R2 sMAKE THEM LOOK ALIKE 
1949 010220 020201 25%: CMP R2,R1 ;ARE THEY OK 

1950 010222 001401 BEQ 40$ ;B8R, IF EQUAL = OK 

1951 010224 000407 BR 60$ s TROUBLE EXIT 

1952 010226 062704 000010 40%: ADD 08. ,R4 sPOINT TO WRT CHARA DATA PACKET 
1953 010232 011403 MOV (R4),R3 sGET ADDRESS OF MESSAGE BUFFER 
1954 010234 010337 002716 MOV R3, MESBFA ;STORE FOR PRINT ROUTINES 
1955 010240 000261 SEC :SET CARRY NO TROUBLE 
1956 010242 000401 BR 70$ s;EXIT 

1957 010244 000241 60$: CLC ;CARRY CLEAR = ERROR 

1958 010246 016500 000000 70$: MOV TSSRC(RS),RO sRETURN TSSR CONTENTS 
deed 010252 000207 RTS PC ;RETURN 


CZTKEA TK25 FRT END FUNC @ 
- POSITION TAPE (REWIND) COMMAND 


REWIND 


1991 
pee | 


010254 
010254 


010342 


010344 
010350 
010350 
010352 


102010 
000000 


016744 


000372 
002116 
177772 
177756 


I5 
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. SBTTL 


3¢ 


REWIND - POSITION TAPE (REWIND) COMMAND 


3 
;THIS ROUTINE WILL REWIND THE SELECTED TAPE. 


JSR 
INPUT: 
RS 


OUTPUT 
RO 


EWIND: : 


10%; JSR 


20$: MOV 


CAUTION: ROUTINE DOES NOT WAIT FOR BOT 


O ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


CALLING SEQUENCE : 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 


PC ,REWINOD 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


PC, WALTF 
20% 

250. 

sere. o(PC)> 
— »(PC)> 


-6(PC) 


10-<, -TUV2AE7> 
102010 
ie) 


sSAVE R1-RS UNTIL NEXT RETURN 
sGET PACKET ADDRESS 

sSENO PACKET ADDRESS TO EXECUTE 
sENOUGH TIME FOR 2400' REEL TO REWIND 
sWAIT FOR SSR TO SET 

sLEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


;BUMP COUNTER DOWN 

sKEEP GOING 

;CLEAR CARRY TO SET ERROR 
3PASS THE PACKET ADDRESS 
;RETURN 


sPOSTION COMMAND (REWIND) 
sNOT USED 


SEQ 60 


na Tes FRT END FUNC 41 


COMPARE RAM TO I/0 PACKET 


012701 
012702 
S00 


002206 
000020 


017060 
017060 
177777 
017060 
177776 


000027 


000010 002246 


. SBTTL 


3¢ 


J5 
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CKRAM 


- COMPARE RAM TO I/0 PACKET 


3 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


; 
s INPUT: 


a 
3 R4 
F RS 


3 

;OUTPUT: 

3 

3 CARRY 


SIDE EFFECTS: 


10%; JSR 


20%: INC 


303: SEC 
50$: MOV 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


; 
s IMPLICIT OUTPUT: 


@RAMDATA,R1 
elas 
PC,.CHKTSSR 
PC,.CHKTSSR 

R2, TSOBHCRS) 
PC ,.CHKTSSR 
TSBALC(RS),(R1) 
CR1)+,CR4)> 
20$ 

R3 


R2 

R2, ORMPK TEND 
10$ 

R3 


50$ 
#8. ,RAMSIZ 
PC 


THE TABLE oe hee IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10° 8. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 
sADORESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 

;WAIT FOR SSR 

sWAIT FOR SSR TO SET 

sSELECT NEXT RAM ADDRESS 
;WAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

;BRANCH IF OK 

3SET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
sREACHED END YET ? 

;BRANCH TILL ALL READ 

3;WAS AN ERROR FOUND ? 

sBRANCH IF NOT 

;CLEAR CARRY TO SHOW ERROR 
sAND EXIT 

:SHOW GOOD COMPAR 

s;SETUP RAMSIZ OR PRAMPKT ROUTINE 
;RETURN 


SEQ 61 


GRIER. "HERG" BoM 


2109 


013705 


077316 


F 4 
SPLAY SELECTED RA 


010715 
000002 


000006 


KS 


MA RO M1200 20-APR-84 08:12 PAGE 47 SEQ 62 


. 


-SBTTL RAMER - READ AND DISPLAY SELECTED RAM 
i¢ 


a 
sROUTINE TO READ THE SELECTED RAM LOCATIONS 


‘ 

s INPUT; 

‘ 

; RS FIRST DEVICE UNIBUS ADDRESS 
; CONSOLE WILL ALSO BE PRINTED TO 

: 

s IMPLICIT OUTPUT: 

n 

; THE TABLE RAMDATA IS FILLED WITH THE 
: DATA HELD IN RAM, 


; 

sSIDE EFFECTS: 
; 

; 

Hy - 


RAMER: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV RAMRSH,RS sRESET RS TO FIRST DEVICE REGISTER 
MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
MOV RAMHLD ,R2 sBYTE ADDRESS OF THE FIRST RAM DATA 
MOV RAMSIZ,R3 sSET THE SIZE OF THE READ UP 
10$: JSR PC, CHKTSSR sWAIT FOR THE SSR TO SET 
MOVB R2, TSOBHCRS ) sSELECT NEXT RAM ADDRESS 
JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 
MOVB TSBALC(RS),CR1)+ ;READ THE RAM DATA 
20%: ADD #1,Re2 sADDRESS OF THE NEXT RAM LOCATION 
SOB R3,10% sNUMBER OF LOCATIONS COUNTER 
MOV RAMSIZ,R4 sGET THE RAM SIZE 
MOV RAMHLD ,R2 sGET THE STARTING RAM ADDRESS 
ADO R2,R4 sCALCULATE THE END ADDRESS 
SUB #1,R4 sCORRECT VALUE OF PRINTOUT 
PRINTX @RAMIOP,R2,R4 sRAM ADDRESS = 10 - 17, ETC. 
MOV R4,-CSP) 
MOV R2,-(S 
MOV @RAMIOP, -( SP) 
MOV @3,-(S 
MOV SP,RO 
TRAP CSPNTX 
ADD #10,SP 
MOV @RAMDATA,R1 sADDRESS OF WHERE RAM DATA IS 
MOV RAMSIZ,R3 ;THE SIZE OF THE RAM FIELD READ 
30$: CLR R4 3NO EXTRA DATA LEFT OVER 
MOVB C(R1)+,R4 sPICK UP BYTE OF RAM DATA 
BIC #177400 ,R4 sGET RIO OF SIGN EXTEND 
PRINTX @RAMPD,R4 :"010 211 111 222 377 000 123 134 ETC.” 
MOV @RAMPD , -( SP) 
MOV SP,RO 
TRAP CSPNTX 
ADD #6 , SP 


SOB R3,30$ ;LOOP UNTIL ALL PRINTED 


2 


TKEA TK25 FRT END FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 47-1 £Q 63 
famch”. "READ ANODESPLAY SELECTED RAM SEQ 6 
2110 010636 000207 50s: RTS PC RETURN 
2112 010640 000000 RAMHLD: .WORD 0 ;RAM ADDR HOLDER 1ST ADDRESS 
2113 010642 000000 RAMRSH: .WORD 0 ;HOLDS RS FOR LATER 
2114 010644 045 116 045 RAMIOP: .ASCIZ ‘sNSA Ram Address (Octal) = #038A - sO3=N‘ 
2115 010715 045 101 040 RAMPD: -ASCIZ ‘SA SO38A ' 


88 MREBE RANG to el 


010730 
010730 
010734 
010740 
010744 
010746 


011030 


012701 
012702 


177776 


000010 
000176 


002246 


M5 


+ alia 08:12 PAGE 48 
sf fes ATA 


-SBTTL CKRAM2 


3¢ 


SEQ 64 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


5 
sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


3 

3; INPUT: 

Hy 

3 R4 
Fy RS 


. 

;OUTPUT: 

Hy 

3 CARRY 


ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 


3 CLR - RAM DOES NOT MATCH PACKET 


3 
s IMPLICIT OUTPUT: 
DATA HELD IN 


SIDE EFFECTS: 


CKRAM2 
SAVREG 
MOV @RAMDATA,R1 
MOV @RMCHBEG ,R2 
CLR R3 
JSR PC,CHKTSSR 

10$: JSR PC,.CHKTSSR 
MOVB R2, TSOBHCRS ) 
JSR PC,CHKTSSR 
MOVB TSBALCRS),CR1) 
CMPB CR1)+,CR4)> 
BEQ 20% 
INC R3 

20%: INC R2 
MOV 08. ,RAMSIZ 
CMP R2, @RMCHEND -2 
BLE 10$ 

27$: TST R3 
BEQ 30$ 
CLC 
BR 50$ 

308: SEC 

50$: RTS PC 


THE TABLE yoy IS FILLED WITH THE 
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 

;WAIT FOR SSR 

s;WAIT FOR SSR TO SET 

;SELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

;BRANCH IF OK 

3SET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
sASSUME NORMAL NOT SET 
sREACHED END YET ? 

sBRANCH TILL ALL READ 

;WAS AN ERROR FOUND ? 

sBRANCH IF NOT 

;CLEAR CARRY TO SHOW ERROR 
sAND EXIT 

;SHOW GOOD COMPARE 

sRETURN 


CZTKEA TK25 FRT END FUNC 41 
CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


NS 


MACRO M1200 20-APR-84 08:12 PAGE 49 SEQ 65 


000012 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


3° 


; ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
;BUFFER,. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
3; INPUT: 
H 
F RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
3 EXPD MESSAGE BUFFER ADDRESS 
;OUTPUT 
3 
3 CARRY SET - MESSAGE BUFFERS MATCH 
3 CLR -MESSAGE BUFFERS DON’T MATCH 
3 
s IMPLICIT OUTPUT: 
3 
F EXPMSG BUFFER IS SET TO EXPD DATA 
3 RECMSG BUFFER IS SET TO RECV DATA 
3 RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
F RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
3 
g° 
CKMSG: : 
SAVREG s;SAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 
TST K TENABLE sTESTING ABOVE 28K? 
BEQ 10% 36R IF NO 
JSR PC, SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 ;GET RETURNED ADDRESS BIASED TO PAR6 
10$; CLR R4 sWORD IN BUFFER 
CLR R3 ;CLEAR ERROR SEEN FLAG 
MOV R2,R5 :GET EXPO BUFFER ADDRESS 
15%: MOV (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOV (CR1),RECMSGC(R4) ;SAVE RECV FOR ERROR REPORT 
CMP CR2)+,CR1L)+ sEXPD EQUAL RECV? 
BEQ 25% 3;8R IF YES 
INC R3 3;SET ERROR SEEN FLAG 
25%: ADO @2,R4 sPOINT TO NEXT WORD ADDRESS 
CMP R4,014 ;DONE FIRST 7 WORDS? 
BLE 15$ 3;8R IF NO 
+H os .EXTF, xST2CRS): zs a FEATURES SET IN EXPD? 
CMP R4,016 1 BONE EXTENDED FEATURES WORD? 
BLE 15$ ;B8R IF NO 
50$: TST R3 sANY ERRORS SEEN? 
BEQ 55$ ;B8R IF NO 
CLC 3;SET FAILURE 
BR 60$ 3 
55$: SEC 3SET SUCCESS 
60%: RTS PC ;RETURN 


CZTKEA TK25 FRT END FUNC @ 
CKMSG2 COMPARE EXPD RECV MESSAGE BUFFERS 


011152 


011272 


3° 


-SBTTL CKMSG2 


B6 


MACRO M1200 20-APR-84 08:12 PAGE 50 


- COMPARE EXPD RECV MESSAGE BUFFERS 


3 
sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


sERROR PRINT ROUTINES. 


F 
s INPUT: 


Chee ae o oe oe os oo 


5$: 


RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
R2 EXPD MESSAGE BUFFER ADDRESS 
R3 NUMBER OF BYTES TO COMPARE 


CARRY SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON'T MATCH 


3 
s IMPLICIT OUTPUT: 


EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 


»SP 
MOV RO,RCVHIADD 
MOV R1,RCVLOAD 
TsT K TENABLE 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADORESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 


sSAVE R1-RS UNTIL NEXT RETURN 
R3, ORECMSG - EXPMSG ; 880 Is Py ABOVE MAX ALLOWED? 
S$ 3880 BR IF NO 


@RECMSG -EXPMSG, R53, 880 
@80 


sSAVE RECV HIGH ADDRESS 
sSAVE RECV LOW ADDRESS 
sTESTING ABOVE 28K? 

36R IF 


sWORD IN BUFFER 
sCLEAR ERROR SEEN FLAG 


Cc RS 
MOVB (R2), EXPMSG(R4) i SAVE EXPO FOR ERROR REPORT 
MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 


CMPB (R2)+,(R1)> 
25% 


BEQ 

INC RS 
ADD @1,R4 
CMP R4,RS 
BGE 50% 
BR 158 
TsT RS 
BEQ 55% 


sEXPD EQUAL RECV? 
3;6R IF YES 

sSET ERROR SEEN FLAG 
sPOINT TO NEXT BYTE 
sD0NE ALL BYTES? 

38R IF YES 

300 NEXT BYTE 

sANY ERRORS SEEN? 
3:8R IF NO 


NO 
sRETURN ADORESS BIASED TO PARE IN RO 
sGET RETURNED ADORESS BIASED TO PAR6 


SEQ 66 


C6 


K - - . - 
GREE EGABLAENPABUNGCED re ssHQEBUPER® 20-40R-84 08:12 PAGE 50-1 sea 67 
2279 011274 000241 cic sSET FAILURE 
2280 011276 000401 BR 608% ’ 
2281 011300 000261 S58: SEC sSET SUCCESS 
aes 011302 000207 608; RTS PC sRE TURN 
228 
2284 011304 120 122 117 DOEBUGMSG: -ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED -' ;980 
2285 011374 045 116 045 FERCM: .ASCII /SNSA e00/ 
2286 011405 040 040 124 ERCM: -ASCIZ 7 TSSR ERROR CODE REC'D = / 
2287 011440 056 056 OS6 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
2288 011473 124 105 123 TINERR;: .ASCIZ /TEST: .../ 


2289 -EVEN 


D6 
ERASES "™CoMBARENEXBLNREEY messHBE*BUFPERS 2°-APR-84 08:12 PAGE Si 


2291 ’ 
2292 
2293 3° 
2294 3 
pty sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
2 3 
2297 : INPUT: 
2298 3 
344 3 R1 CONTENTS OF TSSR AT ERROR 
2300 3 
2301 ;SIDE EFFECTS: 
2302 3 
2303 3 EXECUTES DROP UNIT TO CEASE TESTING 
2304 3 
2305 he 
2306 
2307 011506 BGNMSG SFIMSG 

011506 SFIMSG:: 
2308 011506 004737 005264 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2309 011512 004737 017776 JSR PC, CKDROP sOROP UNIT, IF ALLOWED 
2310 011516 ENDOMSG 

011516 L10003: 

011516 104423 TRAP C$MSG 
2311 
2312 
2313 ‘PRINT ROUTINE TO PRINT THE CONTENTS OF 
ie —_— AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
2316 t INPUTS: 
2317 3 
2318 3 R1 TSSR CONTENTS 
2319 3 R4 ADDRESS OF COMMAND PACKET 
2320 3 
2321 2- 
2322 
2323 011520 BGNMSG PKTSSR 

011520 PKTSSR:: 
2324 011520 004737 005264 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2325 011524 012700 000004 MOV @4,RO 3NO. OF WORDS IN PACKET 
2326 011530 004737 006712 JSR PC ,PRIPKT iPRINT THE CONTENTS OF COMMAND PACKET 
2327 011534 013700 002716 MOV MESBFA,RO sADDRESS OF MESSAGE BUFFER 
2328 011540 005001 CLR R1 sASSUME NO HIGH MEMORY 
2329 011542 004737 013702 JSR PC,PRMESS sPRINT THE MESSAGE BUFFER ALSO 
2330 011546 ENOMSG 

011546 L10004: 

011546 104423 TRAP C$MSG 
2331 
2332 3° 
2333 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
tae :TSSR AND A GET STATUS COMMAND PACKET. 

. 3 

2336 ; INPUTS: 
2337 : 
2338 F R1 TSSR CONTENTS 
2339 i R4 ADDRESS OF COMMAND PACKET 
2340 ; 
2341 ; 


SEQ 68 


E6 


ZIKEA mas re FRT TaEND Func 2 MACR M1200 20-APR-84 08:12 PAGE 51-1 SEQ 69 

KMSG2 XPD RECV MESSAGE BUFFERS 
2342 
2343 011550 BGNMSG PKTGETS 

011550 PKTGETS: : 
2344 011550 004737 005264 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2345 011554 012700 000002 MOV 2,RO0 3NO. OF WORDS IN GET pas PACKET 
2346 011560 004737 006712 JSR PC ,PRIPKT :PRINT THE CONTENTS OF COMMAND PACKET 
2347 011564 ENOMSG 

011564 L10005: 

011564 104423 TRAP C$MSG 
2348 
2349 
2350 3 
2351 3;PRINT TSSR ERRORS FOR INITIALIZATION TESTS 

4 

2353 ; INPUTS: 
2354 3 
2355 : R1 TSSR CONTENTS 
2356 ; R4 ADDRESS OF COMMAND PACKET 
2357 :- 
2358 
2359 011566 BGNMSG SFFMSG 

011566 SFFMSG: : 
2360 011566 004737 005264 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2361 011572 ENOMSG 

011572 L10006: 

011572 104423 TRAP C$MSG 
2362 
2363 
2364 .SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
2365 3° 
2366 3 
2367 ;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
2368 ;BUFFER FOR ERROR REPORTS 
2369 ; 
2370 ; INPUTS: 
2371 ; 
2372 ; R1 CONTENTS OF TSSR 
2373 ; R2 LOW ORDER MESSAGE BUFFER 
2374 ; R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
2375 ; NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 

3 - 

2377 011574 BGNMSG PKTMES 

011574 PKTMES:: 
2378 011574 004737 005264 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
2379 011600 010200 MOV R2,RO 3LOW ORDER ADDRESS 
2380 011602 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
2381 011604 004737 013702 JSR PC,PRMESS ‘PRINT THE MESSAGE BUFFER 
2382 011610 ENOMSG 

011610 10007: 

011610 104423 TRAP C$MSG 


ras Bee 


SSR 


011612 
011612 
011612 
011616 
011622 
011626 
011626 
011626 


011630 
011630 
011630 
011634 
011640 
011640 
011640 


oa et won reee M1200 20-APR-84 08:12 PAGE S52 


004737 
016501 
004737 


007646 
000000 
005264 


104423 


012700 000007 
004737 015246 


104423 


. SBTTL 


F6 


SEQ 70 


ADDSSR - PRINT TEST ADDRESS AND TSSR 


s¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A MEMORY TEST ADDRESS 


3 
; INPUTS: 
3 R5 
3 ERRHI 
3 ERRLO 
; _ 
BGNMSG 
ADDSSR: : 
JSR 
MOV 
JSR 
E SG 
L10010: 
.SBTTL 


3° 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADOR’ SS 
LOW ORDER MEMORY TEST ADDR’.SS 


ADDSSR 

PC ,PRITADO sPRINT MEMORY TEST ADDRESS 
TSSRCRS),R1 sGET CURRENT TSSR 

PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
CsmMSG 


MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
i 
s IMPLICIT INPUTS: 


3 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 - 
BGNMSG MSGEXP 
MSGE XP; : 
MOV @7,RO0 sASSUME NO EXT FEATURES 
5$: JSR PC ,PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10011: 
TRAP C$mMSG 


FEED "Bait 


FEXP 


2437 


2438 
2439 
2440 


2441 
2442 
2443 
2444 


011763 


ENDO UNE /RECV DA 


010146 


011714 
000002 


000006 


011763 
000001 


116 
116 


G6 


MACRO M1200 20-APR-84 08:12 PAGE 55 SEQ 71 


TA 


;¢ 


. SBTTL 


FIFEXP - PRINT FIFO EXP/RECV DATA 


. 3 = . 
s;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


R1 


BYTE COUNT 


3 
sIMPLICIT INPUTS: 


FIFEXP:: 


L1001e: , 


045 FIF1IMSG: 


045 FIFOMSG: 
.EV 


EXPMSG 
RECMSG 


EXPECTED MESSAGE BUFFER CCONTAINS FIFO DATA ONLY 
- RECEIVED MESSAGE BUFFER CCONTAINS FIFO DATA ONLY) 


FIFEXP 


OF IF IMSG,R1 sPRINT BYTES TRANSFERRED 
R1, -CSP) 

OF IF1IMSG, -(SP) 

2, -C(SP) 

SP 


OF IF 2MSG sPRINT HEADER MSG 


R1,RO ;GET BYTE COUNT 
PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 


C$MSG 
-ASCIZ ‘ssNSA NUMBER OF BYTES TRANSFERRED = sD2' 
-ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ' 


H6 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 54 SEQ 72 
SGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
= .SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
244 3° 
2448 ; 
net sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
4 3 
2451 H 
poe ; IMPLICIT INPUTS: 
2454 3 EXPMSG - EXPECTED MESSAGE BUFFER 
2455 3 RECMSG - RECEIVED MESSAGE BUFFER 
2456 PF RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS — 
wed : RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
hs 
2459 012022 BGNMSG MSGSTAT 
012022 MSGSTAT:: 
2460 012022 012701 012064 MOV @STATCOU,R1 sASCII ADDRESS TABLE 
2461 012026 012100 10$: MOV (R1)+,RO sD0NE ALL MSG LINES? 
2462 012030 001410 BEQ 20% 368R IF YES 
2463 012032 PRINTX RO sPRINT STATUS BIT NAMES 
012032 010046 MOV RO, -CSP) 
012034 012746 000001 MOV #1,-CSP) 
012040 010600 MOV SP,R 
012042 104415 TRAP CSPNTX 
012044 062706 000004 ADD @4,SP 
2464 012050 000766 BR 10$ 300 ANOTHER MSG LINE 
2465 012052 012700 000012 208: MOV #10. ,RO _ sNUMBER OF WORDS IN A READ STATUS BUFFER 
2466 012056 004737 015246 JSR PC, PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 
2467 012062 NOMSG 
012062 L10013: 
a 012062 104423 TRAP C$MSG 
2469 012064 012102 012144 012235 STATCOD: . WORD 1$.2%,3%,4%,5%,6%,0 
2470 012102 045 116 045 1%:.ASCIZ ‘sNSA Tape Bus Signals in Word 08:' 
2471 012144 045 116 045 2%:.ASCIZ ‘ ‘'sNSA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRwWD<2>' 
2472 012235 045 116 045 3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IHER <8> ION. <S> IFBY<1>' 
2473 012326 045 116 045 4%:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>’ 
2474 012417 045 116 045 5$%:.ASCIZ ‘sNSA Tape Bus Signals in Word 09:' 
ohh 012461 045 116 045 sis an DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>’ 
2477 
2478 
2479 
ey .SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
3¢ 
2482 ; 
eae sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 
oF sIMPLICIT INPUTS: 
2487 3 EXPMSG - EXPECTED MESSAGE BUFFER 
2488 3 RECMSG - RECEIVED MESSAGE BUFFER 
2489 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
oeer 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 - 
2492 012536 BGNMSG MSGLOOP 


012536 MSGLOOP: : 
2493 012536 012701 012600 MOV #LOOPCOD ,R1 sASCII ADDRESS TABLE 


I6 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 54-1 SEQ 73 
MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

2494 012542 012100 108: MOV CR1)+,RO ;DONE ALL MSG LINES? 
2495 012544 001410 BEQ 20% ;8R IF YES 
2496 012546 PRINTX R sPRINT STATUS BIT NAMES 

012546 010046 V RO, -C SP) 

012550 012746 000001 MOV #1,-CSP) 

012554 010600 MOV SP ,RO 

012556 104415 TRAP CS$PNTX 

012560 062706 000004 ADD 04,SP 
2497 012564 000766 BR 10$ 300 ANOTHER MSG LINE 
2498 012566 012700 000012 208: MOV #10. ,RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
2499 012572 004737 015246 JSR PC ,PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 
2500 012576 ENOMSG 

012576 L10014 
2501 012576 104423 TRAP Cs$MSG 
2502 012600 012620 012673 012772 LOOPCOD: -WORD 1$,2%,3%,4%,5%,6$,78,0 
2503 012620 045 116 045 1%:.ASCIZ ‘sNSA Tape Bus Loopback Signals in Word #8: 
2504 012673 045 116 045 2$:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>' 
2505 012772 045 116 045 3%:.ASCIZ ‘sNSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
2506 013071 045 116 045 4$:.ASCIZ ‘sNSA IWFM =>IFMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 
2507 013170 045 116 045 5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITADi=>IONL <O5> IERASE=>ILDP <04>' 
2508 013267 045 116 045 :.ASCIZ ‘sNSA IREW => IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <O1>’ 
aH 013366 045 116 045 1 seoamamner™ — IGO =>IFPT<00>' 

. Vv 


J6 


Bey TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 55 SEQ 74 
SGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
2513 .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
2514 3¢ 
2515 3 
ty ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
251 3 
2518 3 
4h ; IMPLICIT INPUTS: 
2521 3 EXPMSG - EXPECTED MESSAGE BUFFER 
2522 3 RECMSG - RECEIVED MESSAGE BUFFER 
2523 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
cass 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
hg 
2526 013414 BGNMSG MSGSUB 
013414 MSGSUB: : 
2527 013414 012700 000012 MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
2528 013420 004737 015246 JSR PC ,PRMSGEXP ‘PRINT EXPD/RECV MESSAGE BUFFERS 
2529 013424 ENDOMSG 
013424 L10015: 
013424 104423 TRAP C$MSG 
2530 
2531 
2532 
2533 
2534 
2535 .SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
2536 3° 
2537 3 
cree ;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
3 
Say sIMPLICIT INPUTS: 
3 
2542 3 ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 
2543 ; ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
2544 3 EXP - EXPECTED DATA 
2545 ; RECV - RECEIVED DATA 
2546 a 
2547 013426 BGNMSG MEMADD 
013426 MEMADD: : 
2548 013426 004737 007532 JSR PC,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
2549 013432 013701 002176 MOV EXPO ,R1 ;GET EXPD DATA 
2550 013436 013702 002200 MOV RECV,R2 ;GET RECEIVED DATA 
2551 013442 004737 007314 JSR PC,PRIXOR ;PRINT EXPD/RECV 
2552 013446 ENOMSG 
013446 L10016: 
013446 104423 TRAP C$MSG 


CZTKEA TK25 FRT END FUNC @ 
PRAMPKT - PRINT RAM AND PACKET DATA 


013610 
013614 


013616 


012701 


002206 


177777 
177777 


177400 


177777 
177777 


002176 
002200 
013616 
000005 
000014 
002246 
002246 


000010 
002246 


116 


K6 


MACRO M1200 20-APR-84 08:12 PAGE 56 


002200 
002176 


045 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


s*¢ 


. 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN -THE RAM DATA DOES NOT MATCH. 


; INPUTS: 

: R4 POINTER TO COMMAND PACKET 

; IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ=*0 THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


ee Ge os oe oe oe oe oF oe 


PRAMPKT : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV @RAMDATA,R1 ;DATA FROM THE RAM 
CLR R2 sINIT BYTE NUMBER 

S$: CMPB CR1)+,CR4)> sCOMPARE EXPECTED, RECEIVED 
BNE 7$ ;68R IF NO MATCH 

7$; MOVB -10R1),R5 sGET RECV RAM DATA 
MOVB -1(€R4),R3 sGET EXPD PACKET DATA 
xOR RS,R3 3XOR EXPD/RECV 
BIC #177400,R3 sLOW BYTE ONLY 
MOVB -1(R1),RECV sGET RECEIVED RAM DATA 
MOVB -10R4), EXPO sGET EXPECTED RAM DATA 


PRINTB @RAMASC,,R2,RECV,EXPD.RS 
MOV R3, -(SP) 


MOV RECV, -(SP) 
MOV R2, -(SP) 

MOV @RAMASC, -( SP) 
MOV #5, -(SP) 


MOV SP ,RO 
TRAP CSPNTB 


ADD #14,SP 

10$: INC Re ;UPDATE BYTE COUNT 
TST RAMSIZ ;DEFAULT TO 8.? 
BEQ 15$ 3;8R IF YES 
CMP R2,RAMSI7 ;DONE ALL BYTES? 
BLE 5$ 3;8R IF NO 
BR 258 8 

15%: CMP R2,08 ;D0NE DEFAULT NUMBER OF BYTES? 

20%: BLT S$ ;68R IF NO 

25%: CLR RAMSIZ 3SET DEFAULT RAMSIZ 
RTS PC ;RETURN 


RAMASC: .ASCIZ ‘sNSA BYTE: SD28A RAM: SO3SA Packet: S038A XOR:803' 
EVEN 


SEQ 75 


Bhress “Bain 


013702 
013702 
013706 
013712 
013714 
013720 
013722 
013724 
013726 


2629 013730 


2634 


013732 
013732 
013734 
013736 
013742 
013746 
013750 
013752 
013756 
013762 
013764 
013764 
013770 
013774 
013776 
014000 
014004 
014004 
014010 
014014 
014016 
014020 
014024 
014026 
014030 
014032 
014034 
014040 
014042 
014042 


L6 


END FUNC 81 cHACRO M1200 20-APR-84 08:12 PAGE 57 


010537 


010642 
003102 


014540 
000003 


000010 
177777 


014460 
000001 


000004 
014605 
000001 


000004 


020112 


;¢ 


. SBTTL 


PRMESS 


- PRINT CONTENTS OF MESSAGE BUFFER 


: 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
:THE 7 WORD MESSAGE BUFFER RETURNED BY THE 


3;TK-25. 
3 
3 INPUT: 


PRMESS: 


10$: 


15$: 


20%: 


RO 


PRINTX 


LOW ORDER ADDRESS OF MESSAGE BUFFER 
Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


R 
R1,R3 
RO 


R1 
@PROASC ,R1,RS 
R ) 


Ril, -(SP) 
@PROASC, -( SP) 
@3,-(SP) 

SP RO 

CSPNTX 


#10,SP 
@177777,CRS) 


20 
PC ,SETMAP 
RO,RS 


OMESHEA, (RS )+ 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


sSAVE THE REGISTERS 

sSAVE DEVICE REGISTER POINTER 
sSAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

;BR IF YES 

;SET HIGH ORDER ADDRESS TO 0 
sSAVE HIGH ORDER ADDRESS 

sSHIFT BIT1S TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sMESSAGE BUFFER FULL OF ONES 
;BR IF BUFFER IS PROBABLY OKAY 


:"MESSAGE BUFFER PROBABLY NOT VALID” 


;PRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 

sCOPY LOW ORDER ADDRESS 

sCOPY HIGH ORDER ADDRESS 

3BR IF NOT ABOVE 28K 

sSETUP PAR ADDRESS IN RO 

;GET PAR FORMAT ADDRESS ABOVE 28K 


sPRINT “MESSAGE BUFFER HEADER =" 


SEQ 76 


GaSe 


2643 


2644 


2646 


2647 


014270 


014643 
000002 


000006 


014710 
000002 


000006 


014755 
000002 


002134 


40$: 


M6 


Nt EQRTENTS OF messace BUFFER “O-APR-88 08:12 PAGE 57-1 


6, SP 
ORBPCRA, (RS )+ 
CRS)+, -CSP) 
ORBPCRA, -( SP) 
@2,-(SP) 

SP ,R 


»RO 
CSPNTX 


#6 ,SP 
CRS)+,-CSP) 
@XSOCON, -( SP) 
@2, -(SP) 


SP ,RO 

CSPNTX 

6 ,SP 
@XS1CON,(RS)+ 
CRS)+, -CSP) 


06,SP 
@XS2CON, (RS )+ 
CRS)+, -CSP) 


SP ,RO 

CSPNTX 

06, SP 
@XS3CON,(RS)+ 
CRS)+, -CSP) 
@XS3CON, -( SP) 
2, -(SP) 

SP ,RO 

CSPNTX 


#6, SP 
#1, TRANSTST 
40$ 


sPRINT 


sPRINT 


sPRINT 


;PRINT 


s;PRINT 


sPRINT 


3; CHECK 
300 D 
;DON' T 


“DATA FIELD LENGTH 


“RESIDUAL BYTE COUNTER 


“XSTATO CONTENTS 


“XSTAT1 CONTENTS 


“XSTAT2 CONTENTS 


"XSTATS CONTENTS 


SOFTWARE P-TABLE 
DO THE DUMP 


SEQ 77 


N6 


TKEA TK25 FRT MACRO M1200 20-APR-84 08:12 PAGE 57-2 SEQ 76 
Bane Se BR INT ONTENTS OF MESSAGE BUFFER 

2653 014274 012737 000010 002246 MOV 08. ,RAMSIZ sRAM FIELO IS 6 BYTES LONG 

2654 014302 012737 000020 010640 MOV @20,RAMHLD sFIELD STARTS AT 20 OCTAL (10 HEX) 

2655 014310 004737 010456 JSR PC ,RAMER sREAD AND PRINT THEM 

2656 014314 012737 000040 010640 MOV #40 ,RAMHLD iFIELO STARTS AT 40 OCTAL (20 HEX) 

2657 014322 004737 010456 JSR PC ,RAMER sREAD AND PRINT THEM 

2658 014326 012737 000060 010640 MOV #60 , RAMHLD iFIELO STARTS + id 60 OCTAL (30 HEX) 

2659 014334 004737 010456 JSR PC ,RAMER sREAD AND PRINT THEM 

2660 014340 012737 000020 002246 MOV 016. ,RAMSIZ ;RAM FIELD 1S. SIXTEEN BYTES LONG 

2661 014346 012737 000100 010640 MOV #100 ,RAMHLD sFIELD STARTS AT 100 OCTAL (40 HEX) 

2662 014354 004737 010456 JSR PC ,RAMER sREAD AND PRINT THEM 

2663 014360 000207 508: RTS PC 


sRETURN 
‘@GNBA seeeeeeeee SPECIAL CONTROLLER RAM MEMORY DUMP seeeeeeeee’ 
i ‘sNSA MESSAGE BUFFER CONTENTS PROBABLY NOT VALID‘ 
2666 014540 045 116 045 PROASC: .ASCIZ ‘ SNA Message Buffer Address = #01805’ 


2667 014605 045 116 045 PRIASC: .ASCIZ ‘sSNSA Message Buffer Contents: ’ 
2669 014643 045 116 045 MESHEA: .ASCIZ ‘sNSA Army is Buffer Header = 606’ 
2670 014710 045 116 045 DATAFL: .ASCIZ ‘sNSA Date Field Length = #606’ 
2671 014755 045 116 045 RBPCRA: .ASCIZ ‘sSNSA Residual Byte Counter = #06’ 
2672 015022 045 116 045 xXSOCON: .ASCIZ ‘sNSA XSTATO Contents = 606’ 
2673 015067 045 116 045 XSi1CON: .ASCIZ ‘sSNA XSTAT1 Contents = 606’ 
2674 015134 045 116 045 XS2CON: .ASCIZ ‘sNSBA XSTAT2 Contents = 606’ 
‘SNSA XSTATS Contents = #06' 


2675 015201 045 116 045 XS3CON: — 


B/ 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 58 
PRMSGE xP 


SEQ 79 
- PRINT EXPD/RECV MESSAGE BUFFERS 


2678 .SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
He 3°(8 
: 
2681 sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
2682 : 
meas 3 RO - NUMBER OF WORDS IN BUFFER 
: 
2685 s IMPLICIT INPUTS: 
2686 3 
2687 3 EXPMSG - EXPECTED MESSAGE BUFFER 
2688 3 RECMSG - RECEIVED MESSAGE BUFFER 
2689 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
tg 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ee 
2692 015246 PRMSGE XP; ; 
2693 015246 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
2694 015252 010005 MOV RO,RS sSAVE NUMBER OF WORDS 
2695 015254 013700 002252 MOV RCVLOADD ,RO sGET RECV LOW ADDRESS 
2696 015260 010004 MOV RO,R4 sCOPY LOW ADDRESS 
2697 015262 013701 002250 MOV RCVHIADO .R1 sGET RECV HIGH ADDRESS 
2698 015266 006100 ROL RO sSHIFT BIT15 TO C BIT 
2699 015270 006101 ROL R1 sSMIFT TO HIGH ORDER FOR PRINTOUT 
2700 015272 PRINTX @PRMSGO,R1,R4 sPRINT MESSAGE BUFFER ADDRESS 
015272 (Ol MOV R4,-(SP) 
015274 010146 MOV R1, -CSP) 
015276 012746 015426 MOV SGO, -( SP) 
015302 012746 MOV @3,- ) 
015306 010600 MOV SP ,RO 
015310 104415 TRAP CSPNTX 
015312 062706 000010 10,SP 
2701 015316 PRINTX SG1 sPRINT HEADER FOR CONTENTS 
015316 012746 015473 MOV @PRMSG1, -( SP) 
015322 012746 000001 MOV #1, -(SP) 
015326 010600 MOV RO 
015330 104415 TRAP CS8PNTX 
015332 0627 000004 ADO 04, SP 
2702 015336 CLR R4 sNUMBER OF THE CURRENT WORD 
2703 015340 012701 002266 MOV @EXPMSG,R1 sGET EXPO BUFFER ADDRESS 
2704 015344 012702 002432 MOV @RECMSG ,R2 3sGET RECV BUFFER ADDRESS 
2705 015350 011100 208: MOV (R1),RO 3GET EXPD 
2706 015352 011203 MOV ay Fa 3GET RECV 
2707 015354 xOR R3 3XOR EXPDO/RECV 
2708 015364 PRINTX @PRMSG2, R4, (R1L)+.(R2)6,R 3 
015364 010346 MOV R3,-(SP 5 
015366 012246 MOV (R2)+,-CSP) 
015370 012146 MOV (Ride, -CSP) 
015372 010446 MOV R4, -(SP) 
015374 012746 015531 MOV @PRMSG2, -( SP) 
015400 012746 000005 MOV @5,-(SP) 
015404 010600 MOV P,RO 
015406 104415 TRAP CSPNTX 
015410 062706 000014 ADD @14,SP 
2709 015414 005204 INC 4 sNUMBER OF THE NEXT 
2710 015416 020405 CMP R4,R5 sOONE ALL YET? 
2711 015420 002001 BGE 50% 38R IF YES 
2712 015422 000752 BR 208 300 ANOTHER 
2713 015424 000207 50%; RTS PC sRETURN 


C7 


CZTKEA TK2S FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 58-1 SEQ 80 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
2714 
2715 015426 045 116 045 PRMSGO: .ASCIZ ‘sNBA Message Buffer Address - #01805’ 
2716 015473 045 116 045 PRMSG1: .ASCIZ ‘sSNA Mess Buffer Contents: ' 
ore 015531 045 116 045 PRMSG2: a 'sNBA WORD @8D28A EXPD: SO68A RECV: SO06SA XOR: 806’ 
-EV 


2719 


CZTKEA TK25 FRT END FUNC @1 


PRBY TEXP 


016022 


110337 


122122 
001431 
005237 
023727 
101023 


005204 
020405 
002001 
000717 


013746 


002264 
002266 
002432 
177400 
016164 


177400 
016166 


002264 
002264 


016166 
016164 


016032 
000005 


000014 


002264 
016117 
000002 


D7 


MACRO M1200 20-APR-84 08:12 PAGE 59 
- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


000010 


3° 


3 
sROUTINE TO PRINT ERROR BYTES IN MESSAGE B 


UFFERS 
3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
a 
3 RO - NUMBER OF BYTES IN BUFFER 
3 
sIMPLICIT INPUTS: 
3 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 = 
PRBYTEXP:: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO.RS sSAVE NUMBER OF BYTES 
CLR PRMNO sINIT ERROR COUNT 
CLR R4 sNUMBER OF THE CURRENT BYTE 
MOV @EXPMSG,R1 iGET EXPO BUFFER ADDRESS 
MOV @RECMSG ,R2 3GET RECV BUFFER ADDRESS 
208: MOVB CR1),RO 3GET ExPO BYTE 
BIC etC<377>, RO sCLEAR UPPER BYTE 
MOVB RO, PRBEXP sSAVE FOR ERROR REPORT 
MOvB (R2),R3 sGET RECV BYTE 
BIC @tC<377>,R3 ;CLEAR UPPER BYTE 
MOvVB R3,PRBREC 3FOR ERROR REPORT 
XOR RO,.R3 sXOR EXPO/RECV 
CMPB CR1 D+, CR2)> sEXPD = RECV? 
BEQ 308 36R IF YES 
INC PRMNO sUPDATE ERROR COUNT 
CMP PRMNO, 08. sPRINTED 87? 
BHI 308 38R IF YES 
27s: PRINTX @PRBMSG,R4, PRGEXP, PRBREC,R3 
MOV R3,-C SP) 
MOV PRBREC, -(SP) 
MOV PRBEXP, -( SP) 
MOV @PRBMSG, -(SP) 
MOV o5, -(SP) 
MOV SP,RO 
TRAP CSPNTX 
014 ,SP 
FORCEXIT 50% 3880 
3880 
308: 
FORCERROR 278%,NOTSSR 3880 
35%: 2880 
INC R4 sNUMBER OF THE NEXT 
CMP R4,RS ;DONE ALL YET? 
BGE 508 38R IF YES 
BR 20s 300 ANOTHER 
5038: PRINTX @PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
MOV PRMNO, -( SP) 
MOV @PRBTOT, -(SP) 
MOV P,RO 
TRAP CSPNTX 


SEQ 81 


cf 


eres TK25 FRT_END FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 59-1 SEQ 82 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
016024 062706 000006 ADD 06, SP 

ores 016030 000207 RTS PC sRETURN 

2766 016032 045 116 045 PRBMSG: .ASCIZ ‘SNSA BYTE OSD2SA EXPD: SO38A RECV: SO038A XOR: 803’ 

44 016117 045 116 045 PRBTOT: pte ty ‘sNSA NUMBER OF BYTES IN ERROR = #D2’ 

.EV 
2769 016164 000000 PRBEXP: .WORD 0 sEXPD 
2770 016166 000000 PRBREC: .WORD 0 sRECV 


2771 


CZTKEA TK25 FRT END F 
EXPREC 


- PRINT EXPD/RECV “toro DAT 


016170 

016170 

016170 004737 007314 
016174 

016174 

016174 104423 


F7 


~~ M1200 20-APR-84 08:12 PAGE 60 
.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
3 
3 
;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
F 
: INPUTS: 


; R1 RECEIVED DATA 
R2 EXPECTED DATA 


BGNMSG EXPREC 
EXPREC:: 
JSR PC,PRIXOR sPRINT THE DATA 


L10017; 
TRAP C$MSG 


SEQ 83 


er 


EXPOREC PRINT 


016176 
016176 


016202 


O 
016210 


EXPO/REEV BYTE 


004737 007164 


104423 


004737 013450 


104423 


MACRO M1200 20-APR-84 


DAT 


. SBTTL 
3¢ 


3 
sPRINT ROUTINE 


.SBTTL 
3° 


SPRINT ROUTINE 
} INPUTS: 

Ra 
;IMPLICIT INPUT 
: RAMDATA 
RAMSIZ 
; IMPLICIT OUTPU 
RAMSIZ 


BGNMSG 
RAMERR: : 
JSR 


ENOMSG 
L10021: 
TRAP 


. SBTTL 
3° 


G/ 


08:12 PAGE 61 


EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPi.AY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 
PC,PRIBXOR 


C$MSG 


RAMERR - PRINT RAM AND PACKET DATA 


sPRINT THE DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


S: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 THEN DEFAULT TO 8. 


TS: 
SET T0 O 


RAMERR 
PC ,PRAMPKT 


C$MSG 


RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


sPRINT RAM/PACKET DATA 


3 
;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


° 
s INPUTS: 


SEQ 84 


RANTADD “PRINT Test ADDRESS, RAM AND PACKET BATA 


016212 
016212 
016212 
016216 
016222 
016222 
016222 


016224 
016224 
016224 
016230 
016234 
016240 
016244 
016244 
016244 


004737 
004737 


104423 


007646 
013450 


177400 
177400 
007440 
007314 


R4 
IMPLICIT INPUT 


RAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


RAMSIZ 


.SBTTL 
3° 


3 

;PRINT ROUTINE 
3 

; INPUTS: 


L10023: 
T 


3 
sPRINT ROUTINE 
s;AND TIMER A,B 


3 
; INPUTS: 
3 


; R1 
; R2 


H7 


08:12 PAGE 61-1 


POINTER TO COMMAND PACKET 
S: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 

IF RAMSIZ*O0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 


IMPLICIT OUTPUTS: 


SET TO O 

RAMTADD 

PC,PRITADD sPRINT TEST ADORESS 
PC, PRAMPKT sPRINT RAM/PACKET DATA 
C$MSG 


RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 


RAME XP 

@tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
PC ,PRIRAM sPRINT THE RAM ADDRESS 
PC,PRIXOR sPRINT THE DATA 

Cs$MSG 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 
HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 


SEQ 85 


ZTKEA TK25 FRT 


IME XP 


- PRINT 


016246 
016246 


016272 


016274 


17 


END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 61-2 SEQ 86 
TIMER A,B AND EXP/REC 
g= 
BGNMSG TIMEXP 
TIMEXP:: 
PRINTX @TIMSGO sPRINT HEADER 
012746 016274 MOV @TIMSGO, -(SP) 
012746 000001 MOV #1,-CSP) 
010600 MOV SP ,RO 
104415 TRAP CSPNTX 
062706 000004 ADD @4,SP 
004737 007314 JSR PC,PRIXOR ;PRINT THE DATA 
ENOMSG 
L10024; 
104423 TRAP C$MSG 


045 116 045 i + -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3SNSA TIMER B STATUS IS IN BIT 2’ 


CZTKEA TK25 FRT END FUNC @1 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


2921 
2922 
2923 


2924 
2925 


016374 
016374 
016374 
016376 
016402 


010246 
042702 


010246 


116 


J7/ 


MACRO M1200 20-APR-84 08:12 PAGE 62 


3 


BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


; 
;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 


3 
; INPUTS: 


R2 


L10025: 
TRAP 
045 xXFERASC: 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 


R2,-(SP) sSAVE DATA TRANSFERRED 
#177400,R2 sGET JUST ONE BYTE 
@XFERASC ,R2 

Re, -(SP) 

@XFERASC, -( SP) 

@2,-(SP) 


(SP)+,R2 ;RESTORE R2 
PC,PRITSSR ;DECODE TSSR CONTENTS 


C$MSG 
.ASCIZ ‘NSA Data Transferred = #03’ 


ye 


SEQ 87 


IK 7 


ZTKEA TK FRT END F 1 MACRO M1200 20-APR-84 08:12 PAGE 63 SEQ 388 
any USBRouT INES SECTION 
44 .SBTTL GLOBAL SUBROUTINES SECTION 
292 
2929 ; "THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 
aoee ; THAT ARE USED IN MORE THAN ONE T 
2931 §=- 
Bs | -SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
2933 
2934 3° 
2935 3 
2936 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
2937 ;B8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
2938 ;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
det ;sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
0 3 
2941 : INPUTS: 
2942 3 
2943 3 RS ADORESS OF FIRST REGISTER 
2944 3 
2945 ;OUTPUTS: 
2946 
2947 3 RO CONTENTS OF TSSR, IF ERROR 
2948 : CARRY SET IF INIT WAS OKAY 
2949 F CLEAR IF FATAL ERROR 
2950 : 
2951 sCALLING SEQUENCE: 
2952 ; 
2953 3 MOV ADDRESS RS 
2954 3 JSR PC, SOF INIT 
2955 ; bcs CONT INUE 
2956 ; ERRDF sREPORT FATAL ERROR 
2957 : 
2958 :- 
2959 
2960 016470 SOF INIT:: 
2961 016470 SAVREG 3 SAVE THE REGISTERS 
2962 016474 012765 000000 000000 MOV 0, TSSRC(RS) 3: ODO THE INIT. 
2963 016502 004737 016744 JSR PC ,WAITF 3; WAIT FOR SSR 
2964 016506 016500 000000 MOV TSSRCRS), RO ;GET THE TSSR REGISTER 
2965 016512 010004 MOV sSTART SETUP OF EXPECTED TSSR 
2966 016514 042704 176277 BIC Ore cHIADDR!OFL>, ha sCLEAR OUT UNUSED BITS 
2967 016520 052704 002200 BIS @SSR!NBA,R4 sR4 HAS EXPECTED CONTENTS 
2968 016524 020400 CMP R4,RO sONLY EXPECTED BITS SET ? 
2969 016526 001402 BEQ 5$ sBRANCH IF OKAY 
2970 016530 000241 vs ;CLEAR THE CARRY FOR ERROR 
2971 016532 000401 BR 10$ 3GO TO EXIT 
2972 016534 000261 S$: SEC :SET THE CARRY BIT 


2973 016536 000207 10$; RTS PC sRETURN TO CALLER 


L/ 


PAYS 2 mos fel far § Fen Ns Shercuire M1200 20-APR-84 08:12 PAGE 64 


SpSceccssceaseecsaesaas 


3017 


Nw 
oo 
pee 
O@ 


100000 
174077 


000200 
000040 
177761 
000016 
000040 
000006 


3*¢ 


; THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 


sFOR AMBIGUITY 


: 
3 INPUT; 
F 


3 
;OUTPUT: 


5$: 


10$: 


40$: 


45$: 
50$: 


RO 


RO 
CARRY 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
+ i »RO 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 


en !SSR tHIADOR> , RO 


453% 
eBIT2!:BIT1,RO 
453% 


50$ 
PC 


sERROR IF NOT 


sCLEAR ALL BLY TERMINATION CODE 
sALL THREE BI:S MUST BE SET 
sERROR IF NOT SET 

sOK IF ALL ARE SET 

sIS FATAL ERROR BIT SET ? 
sERROR IF BIT IS SET WITH SSR 
sIS THIS A FUNCTION REJECT 

sBR, IF TSSR IS OK 

sAMBIGUOUS CONTENTS 


;SHOW SUCCESS - NO AMBIGUITY 
sRETURN TO CALLER 


sANY OTHER BITS SET ? 
:MUST BE AN ERROR 

sRETURN WITH er 

sIS READY BIT SET 

sBRANCH IF READY ait IS SET. 

sIS FATAL ERROR BIT SET ? 


SEQ 89 


M7 
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-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


016700 
016702 
016710 


000200 


IF DISPLAY 
OTHERWISE, 


DEFAULT DISPLAY INTERRUPT HANDLERS. 


TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR “INTMASK” ANO “INTFLAG” BYTES: 
‘ 


IOKCKIN=BIT7 s DON’T CHECK FOR BAD ee -- TEST WILL. 


IOKSTP=BITO 3; EXPECT “STOP” — 
; INTERRUPT MASK -- ? EXPECTING INTERRUPTS 


INTMASK ; 


-BY te) 
s INTERRUPT FLAG “ay ig ys GOT ONE CIF POSITIVE) 


INTFLAG: 


sSAVED INTERRUPT VECTOR: 
WORD 0O 


INTVEC: . 
sSAVE CPU PC 


INTCPC: .WORD 0 
s;SUBROUTINE TO ENABLE INTERRUPTS: 


ENAINT: MOV 


3; SUBROUTINE 
OSBINT: MOV 
MOV 
RTI 


RO, -CSP) sSAVE RO 

IVEC,RO ;GET POINTER TO VECTORS 
@INTR,(RO)> ;SET UP INTERRUPT VECTOR 
@PRIO7,CRO)+ 

(SP)+,RO sRESTORE RO 

(SP), -CSP) 

#0,2¢SP) sSET CPU TO LEVEL O 


TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
(SP), -(SP) 
#PRIO7,2¢SP) 


SEQ 90 


CZTKEA TK25 FRT END FUNC @1 
- INTERRUPT HANDLERS 


INTR 
3059 


016712 


016742 
016742 
016742 
016742 


012737 


152737 


000001 
016641 
000001 


002001 


N7 
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.SBTTL INTR - INTERRUPT HANDLERS 
ooh BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
33 
002172 MOV @1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB  ~=—sCINTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
016640 BITB $$ IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
BNE 1$ ;6R IF YES 
016641 BIS8  IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
i SAVE REGISTERS, MSG BUFFER, ETC. 
E ENDSRV 
10026: 
RTI 


CZTKEA TK2S FRT END F 


WALTF 


UNC 
- WAIT FOR SUBSYSTEM READY 


016744 
016744 
016746 


017010 
017012 
017012 
017016 


017056 


104422 
012746 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 
100420 
012727 
000000 


013727 
000000 


#1 


010000 
000001 
002116 
177772 
177756 
000000 


000001 
002116 
177772 
177756 


B8 
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‘ 
: SUBROUTINE TO 


’ 
s INPUTS: 


2s: 


38: 
4%: 


. SBTTL 


WAITF - WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 
+ DO A SUPVSR BREAK FIRST. 


CsBRK 
#10000, -( SP) sB8IG MSEC TIMER 


1 ;DELAY 100US 
rer 
-6(PC) 
_-4 
“22¢PC) 
TSSR(RS),RO sREAD THE TSSR REGISTER 
RO sTEST FOR READY BIT SET 
3 s EXIT ON STOP FLAG. 
1 s WAIT 100 USEC 
lanai 
“6¢PC) 
"32cPC) 
isp) sREDUCE DELAY COUNT 
23 sRETRY UNTIL TIMER EXPIRES 
: C = 0, CONTROLLER STILL RUNNING... 
as 62 -OR, HUNG-UP AFTER 300 MSEC. 


s Cs CONTROLLER IS STOPPED. 
he ‘RESTORE STACK WITHOUT CHANGING CARRY BIT 


SEQ 92 


C8 


K F - m : 
FATHER, T “RE RI FN, PNG Be ADY MACRO M1200 20-APR-84 08:12 PAGE 68 SEQ 93 
3198 .SBTTL CHKTSSR - CHECK TSSR FOR READY 
3106 3° 
3107 t 
3108 :THIS ROUTINE WAITS FOR READY IN THE TSSR 
aH sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
’ 

3111 s INPUT: 
31le 3 
seta 3 RS ADDRESS OF CSR REGISTERS 

1 3 
3115 ;OUTPUT: 
3116 3 
3117 3 RO CONTENTS OF TSSR 
3118 3 CARRY SET - OKAY 
3119 3 CLR - NOT READY AMBIGUOUS, OR SC SET 
3120 3 
3121 8° 
3122 
3123 017060 CHKTSSR: 
3124 017060 004737 016744 JSR PC .WAITF sWAIT FOR READY 
3125 017064 103014 Bcc 208 sBRANCH IF TIME OUT 
3126 017066 004737 016540 JSR PC, CHKAMB sTSSR AMBIGOUS? 
3127 017072 103006 Bcc 108% 38R IF YES 
3128 017074 032700 100000 BIT @sc RO sSPECIAL CONDITION SET? 
3129 017100 001405 BEQ 15% 368R IF NO 
3130 017102 032700 074000 BIT @<SCE !BIE!RMRINXM> RO sANY ERROR BITS SET? 
3131 017106 001402 BEQ 158 3B8R IF NO 
3132 017110 000241 108: cLc 3SET FAILURE 
3133 017112 000401 BR 20% 3 
3134 017114 000261 158: SEC 3SET SUCCESS 


3135 017116 000207 208; RTS PC sRETURN TO CALLER 


D8 
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$132 .SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
3139 ; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
3140 ; ON RETURN, IF "CC" = 1, (R1) © NEXM ADDRESS. 
3141 3 “[—* = 0. ALL ADORESSES OK. 
3142 H 
3143 ;CALL: MOV ADR1,R1 
3144 ; MOV ADR2,R2 ; 
3145 ; JSR PC, NXM 
g1e¢ 3 RETURN ;TEST “C” ANO PROCEED. 
3 
3148 017120 012737 017152 000004 XNXM: MOV 02% ,804 3: SET BUSERR VECTOR. 
3149 017126 012737 000200 000006 MOV @PRIO4 ,806 
3150 017134 005003 CLR R3 sFLAG. 
3151 017136 005711 18: TST (R1) sTEST THE ADDRESS(ES). 
3152 sIF ANY TRAP, CONTINUE AT 2$. 
3153 017140 020102 CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
3154 017142 001407 BEQ 33 36R IF FINISHED (NO NEXM’S). 
3155 017144 062701 000002 ADD #2,R1 sSET NEXT ADDRESS... 
a2e 017150 000772 BR 1% 3...AND CONTINUE. 
3158 017152 005103 2s: COM R3 sGOT ONE, SET FLAG... 
3159 017154 012716 017162 MOV @3$,(SP) 
3160 017160 000002 RTI 3...AND DISMISS INTERRUPT... 
3161 017162 3$: CLRVEC 04 3;..-AND GIVE BACK THE VECTOR. 
017162 012700 000004 MOV 04,RO 
017166 104436 ; TRAP CsCveECc 
3162 017170 005703 TST R3 sDIO0 WE CATCH ONE ?? 
3163 017172 001401 BEQ +4 sNO, "C” = O, SKIP NEXT 
3164 017174 000261 sec sVES, “€* © i, CRI) = NEXM ADDR. 
3165 017176 000207 RTS PC 
3166 
3167 
3168 
3169 
By .SBTTL TSTLOOP - CHECK ITERATION COUNT 
3¢ 
3172 3; SUBROUTINE TO EXECUTE TEST ITERATIONS. 
3173 3; EXIT WITH "C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
_s 3; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
o 
3379 3; CALL: LOOPTO ARG 
: 
3178 017200 TSTLOOP: : 
3179 017200 005737 002136 TST NOITS 3: ITERATIONS INHIBITED? 
3180 017204 001006 BNE 18 s YES. 
3181 017206 005737 002152 TST ave 3s NO. 
3182 017212 100403 BMI 1$ 3LOO0PS DISALLOWED IN QUICK PASS. 
3183 017214 005337 002164 DEC LOOPCNT ; BUMP LOOP COUNTER, 
3184 017220 001002 BNE 2s 
3185 017222 000241 1$: cLc sLOOP DISALLOWED, OR DONE. 
3186 017224 000401 BR 3$ 
3187 017226 000261 2s: SEC ;LOOP ENABLED. 


3188 017230 000207 3%; RTS PC 


f 


ZTKEA TK25 FRT E 


STLOOP 


- CHECK I 


017232 
017232 
017234 


000000 
012737 


013700 
104451 


160001 


177777 
002150 


E8 
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TTERAYION COUNT 


.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
INPUT: 
RO POINTER TO TEST ID ASCIZ STRING 
OUTPUT: 
RS ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 
TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


oe es Ge GF Ge G+ GF Ge OF Gt GS GF Ge GF GF Ge Ge GF GF Ge GF GF Ge ae 
* 


TSTSETUP 
Vv RO, -(SP) sSAVE THE TEST ID MESSAGE 
CLR SIFLAG 3 CLEAR “SOFT INIT” FLAG 
CLR ERRK + CLEAR LOCAL ERROR COUNTER. 
CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
CLRB INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO ; GET THE UNIT NUMBER 
ASL RO ; AND MAKE IT A WORD OFFSET. 
TST NODE V ; OL0 STARTUP FINO THE DEVICE? 
BEQ 4% ' BR IF YES 
BPL 3% BR IF NOT IOLE 
003130 BIS #160000, ERTABL(RO) + FLAG ERROR IN THE ERROR TABLE 
ERROF  1,NXR,NXRERR NO DEVICE HERE -- PRINT IT 
TRAP CSERDF 
-WORD 1 
-WORD NXR 
ao NXRERR 
2s 
003130 3%: BIS #160001, ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
ERROF 2,NOINIT s DEVICE NOT IDOLE 
TRAP CSEROF 
-WORD 2 
-WORD NOINIT 
-WORD O 
003060 2%: MOV @-1,O0UFLG s DROP THE UNIT 


DOCLN + ABORT THE PASS 


SEQ 95 


CZTKEA TK2S FRT E 
TSTSETUP 


3244 
3245 


3246 
3247 
3248 
3249 
3250 


- PRINT 


017344 
017346 


001000 
017426 
000002 


000006 
002162 
002160 


002154 
123 


West NAME AND INTT ERROR COUN 


4$: 


1$; 


5$: 


045 TNAM: 
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TRAP 
BR 


F8 


Cs0CLN 
S$ 


RO 
CSRFLA 
@PNT,RO 
1$ 


(Ss 

CSRADOR ,RS 
PC 

‘SSStTSA Test’ 


s GET THE OPERATOR FLAGS. 


; PRINT THE TEST NUMBERS? 
; BR IF NO 

;GET THE ID MESSAGE 
s;DISPLAY THE TEST ID / 


s BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


FIX UP THE STACK 
; ADDRESS OF TSV REGISTERS ON UNIBUS 


SEQ 96 


gTeeA TK2 


TENO 


017442 
017442 
017444 
017450 
017452 
017452 
017456 
017462 
017466 
017470 
017472 
017476 


017500 
017502 
017521 


€12746 


001013 
012737 


104455 
000004 
017521 


040 
122 


002140 


177777 003060 


.SBTTL 


—bee of oe o 


G8 
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TSTEND 


; BR IF 


SEQ 97 


- PRINT ERRORS RECEIVED 


AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 


“IER” NOT SET. 
PRINT ERROR COUNT. 


LOCAL ERROR COUNT. 


ZERROR LIMIT REACHED -- DROPPING UNIT/ 


- INCREMENT LOCAL ERROR COUNT 


> 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT ANDO CHECK FOR LIMIT: 


STEND: RFLAGS RO 
TRAP C$RFLA 
BIT RO, @IER 
BEQ 1$ 
PRINTF @€SUM,ERRK 
MOV ERRK, -( SP) 
MOV GESUM, -( SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD @6,SP 

1$: RTS PC 

ERRK: 

ESUM: ASCIZ /#A #D8A ERRORS/ 

EMAXDU: .ASCIZ 
EVEN 
.SBTTL INCERK 

he 

INCERK: INC ERRK 
MOV RO, -(SP) 
MOV UNITN,RO 
ASL RO 
ADD @ERTABL .RO 
INC CRO) 
BIT @7777,CRO) 
BNE 1$ 
DEC CRO) 

1%: MOV (SP )+,RO 
RTS PC 

CKEMAX: MOV RO, -(SP) 
MOV UNITN,RO 
ASL RO 
MOV ERTABL(RO),RO 
BIC #170000 ,RO 
CMP RO, GERRMAX 
BHIS 1$ 
CMP ERRK ,LERRMAX 
BLO 2s 

1%: RFLAGS RO 
TRAP CSRFLA 
BIT #IDU,RO 
BNE 2s 
MOV @-1,D0UFLG 
ERROF 4,EMAXDU 
TRAP CSEROF 
.WORDB 4 
. WORD EMAXDU 


oon" LOCAL ERROR COUNT 
GET UNIT NUMBER, 
.. AND MAKE IT A WORD OFFSET 
RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
OID WE OVERFLOW THE FIELD? 
BR IF NO. 
YES -- BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 


SAVE RO 
GET UNIT NUMBER 
AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT ERROR COUNT FIELD 
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BR IF YES 
a ae LIMIT EXCEEDED FOR THIS TEST? 
GET OPERATOR FLAGS 


IS DROPPING INHIBITED? 
BR IF YES. 
NO -- DROP THE UNIT 


H8 
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3298 


017706 
017710 
017710 
017714 
017716 
017716 
017720 
017722 


017724 
017724 
017730 
017734 
017736 
017744 
017750 
017756 
017760 
017760 
017762 
017766 
017770 
017774 


013701 


002150 


002150 
000001 


002170 
002170 


040000 
017776 


003130 
000031 


eo oe O 


-WORD 0 

DODU UNITN 

MOV UNITN,RO 

TRAP Cs000U 

DOCLN 

TRAP CsOCLN 

MOV (SP)+,RO RESTORE RO 

RTS PC RETURN TO CALLER 


-SBTTL FATCHK - INC FATAL ERRORS AND CHECK FOR LIMIT 


CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 


SAVREG sBETTER SAVE THE REGISTERS 

MOV UNITN,R1 sPICK UP THE UNIT NUMBER 

ASL R1 sMAKE IT INTO A BYTE OFFSET 

ADD #1,ERTABLC(R1) + ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 
INC FATFLG sBUMP FATAL ERROR COUNTER 

CMP FATFLG, 025. sCHECK AGAINST 25 

BLT 9$ 3BR, IF LESS THAN 25 ERRORS 

RFLAGS RO sREAD THE FLAGS INTO RO 

TRAP CSRFLA 

BIT @B1T14,R0 ;6R, IF LOOP ON ERROR IS SET 

BNE 93 ;OTHERWISE NEVER BE ABLE TO SCOPE ETC. 
JSR PC ,.CKDROP ;OROP UNIT IF ALLOWED 

RTS PC sRETURN ETC. 


SEQ 96 


CZTKEA TK25 FRT 


CKDROP 


3326 
3327 
3328 
3329 


- CHECK 


017776 


020044 
020044 
020050 


END FUNC @1 
IF UNIT SHOULD BE DROPPED 
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-SBTTL CKDROP 


18 


SEQ 99 


- CHECK IF UNIT SHOULD BE DROPPED 


3° 
; CHECK IF UNIT SHOULD BE DROPPED 


3 - 
CKDROP: MOV 


010046 RO, -CSP) 
FORCERROR 1$,NOTSSR 
RFLAGS RO 
104421 TRAP CS$RFLA 
032700 000040 BIT @ID0U,RO 
001010 BNE $ 
011600 MOV (SP),RO 
012737 177777 003060 MOV @-1,0UFL 
DODU UNITN 
013700 002150 MOV UNITN,RO 
104451 TRAP cs 
DOCLN sABORT THE PASS 
104444 TRAP CsOCLN 
012600 1$: MOV (SP )+,RO 
000207 RTS PC 
-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
3 
; SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 
i 
CONFIG: 
004737 016470 JSR PC,SOF INIT 
000207 RTS PC 


CZTKEA TKOS FRI 
KTON, KTOF 


FE 


020070 
020074 
020076 
020100 
020102 
020110 


E 


005737 
001403 
012737 
000207 


005737 
001405 
000240 
000240 
012737 
000207 


ND FUNC @1 
- ENABLE /OISABLE 


003100 


003100 


000000 


MACRO M1200 


MEMORY MANAGEMENT 


177572 


177572 


-SBTTL KTON,KTOFF 


J8 
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; 
; SUBROUTINE - ENABLE MEM MGT. 


3 
KTON: 


1$;: 


; 
3; SUBROUTINE 


KTOFF : 


1$: 


KTFLG 
i$ 
@1,SRO 
PC 


KTFLG 
1s 


0, SRO 
PC 


- DISABLE MEM MGT. 


ENABLE /DISABLE MEMORY MANAGEMENT 


GOT KT? 
NO. 
YES. ENABLE KT11. 


GOT KT11? 
NO. 


DISABLE KT. 


SEQ 100 


SETMAP '“°SeTUP BARS MAPPING 


020214 


003100 


K8 
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-SBTTL SETMAP 


3¢ 


SEQ 101 


- SETUP PAR6 MAPPING 


; 
; THIS ROUTINE SETS UP KERNEL PAR6 TP HANOLE 
sAN 186 BIT ADDRESS. THE OFFSET INTO THE PAGE 


:IS RETURNED BIASED TO PARG. 


THE ADDRESS) 


sSAVE R1-R4 UNTIL NEXT RETURN 
sSYSTEM HAVE ABOVE 28K? 


NO 
sSAVE LOW ORDER BITS 


sCONVERT WORD ADORESS TO 32W BLOCKS 
sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
sHIGHER THAN EXISTING MEMORY? 


sSETUP MAPPING REGISTER PAR6 
sSETUP DISPLACEMENT IN PAGE 
sADO IN PAR6 BIAS 

sRETURN IN RO 

;SET SUCCESS 


3 
sSET FAILURE 


3 
3; INPUTS: 
3 
; RO HIGH ORDER ADDRESS BITS 
3 R1 LOW ORDER ADDRESS BITS 
3 
;OUTPUTS: 
3 RO OFFSET INTO BLOCK WITH PARG BIAS (I.E. 
; CARRY SET IF SUCCESS 
3 CLR IF ERROR 
Be 
SETMAP: 
SAVREG 
TST KTFLG 
BEQ 10$ ;6R IF 
MOV R1,R2 
.REPT 6 
ASR RO 
ROR R1 
.ENOR 
BIC #177,R1 
CMP R1,KTFLG 
BHIS 10$ 3;6R IF YES 
MOV R1,8eKIPAR6 
BIC #160000 ,R2 
ADD #140000 ,R2 
MOV R2,RO 
SEC 
BR 15$ 
10$: CLC 
15$: RTS PC ;RETURN 


Ss pees. mee F 


RT END F 
ILL MEMORY 


Vat T Back 


020070 


003072 
003074 


003100 
020052 
003104 


020112 
160000 
020000 
000200 
172354 


020336 
020070 


L8 
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GROUND PATTERN 


172354 
003100 


-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 
RO = BACKGROUND PATTERN 
FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 


OUTPUTS: 


* 


“Vies os os os os oe oF os os Ge OF oF oF Oo 


NONE 
ILLMEM: 

SAVREG sSAVE R1-RS UNTIL NEXT RETURN 

JSR PC ,KTOFF sDISABLE KT. 

MOV RO,RS :COPY TEST PATTERN 

MOV FREE ,R1 iGET FIRST FREE LOCATION 

MOV FRESIZ, R2 sSIZE OF FREE SPACE BELOW 28K. 
10%: MOV R3, CR1)> sSTORE A BACKGROUND WORD 

DEC Re sDONE ALL MEMORY IN FREE SPACE? 

BGT 10% 3BR IF NO 

TST KTFLG ; GOT KT? 

BEQ SS$ s NO. GET OUT. 

JSR PC,.KTON ; YES. ENABLE KT. 

CLR RO sHIGH ORDER ADDRESS STA 

5 tceaaa tee sGET >28K START ADDRESS CIN 32W BLOCKS) 

CLC sCLEAR C BIT 

ROL R1 sCONVERT BLOCKS TO WORDS 

oo RO sMAKE IT DOUBLE PRECISION 

JSR PC, SETMAP sSETUP PAR6 MAPPING REGISTER 
30$: MOV R3,CRO)+ sSTORE TEST PATTERN IN >28K ADDRESS 

ay ata sENO OF PAR6 MAPPING AREA? 


368R IF NO 
SuB #20000 ,RO ;BACKUP INTO PAR6 MAPPING BEGIN 
ADD #200 , BOK IPAR6 sPOINT TO NEXT 4K BLOCK >28K. 


CMP BOKIPARG,KTFLG ;END OF MEMORY? 
BEQ 50$ 3BR IF YES 
JMP 30% sKEEP GOING ON ETC. 
50$: JSR PC ,KTOFF ; OISABLE KT. 
55$: RTS PC 


SEQ 102 


eZ TKEA bie ne SA Re #4 eax ahem 08:12 sip SEQ 103 


sees .SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
; + 

of 3; COMPARE MEMORY WITH A BACKGROUND PATTERN 

1 ; 
3472 3; INPUTS: 
3473 z 
3474 3 RO = BACKGROUND PATTERN 
3475 3 FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
ode 3 KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 

77 3 
3478 3; OUTPUTS: 
3479 ; 
3480 3 CARRY - SET IF NO ERROR 
3481 ; CARRY - CLR IF ERROR 
3482 F 
cons ; IMPLICIT OUTPUTS: 

3 

3485 3 ERRHI - ERROR HIGH ADDRESS 
3486 3 ERRLO - ERROR LOW ADDRESS 
3487 3 EXPO - EXPECTED DATA 
3488 3 RECV - RECEIVED DATA 
3489 i- 
3490 020402 CMPMEM: 
3491 020402 SAVREG ; 3SAVE R1-RS UNTIL pen RETURN 
3492 020406 010003 MOV RO,RS ;COPY TEST PATTERN 
3493 020410 004737 020070 JSR PC ,KTOFF sOISABLE KT. 
3494 020414 013701 003072 MOV FREE ,R1 3GET FIRST FREE LOCATION 
3495 020420 013702 003074 MOV FRESIZ,R2 :SIZE OF FREE SPACE BELOW 28K. 
3496 020424 020311 10$: CMP R3,C(R1) 3sFREE ts LOCATION EQUAL TO EXPD? 
3497 020426 001411 BEQ 15$ 3B8R IF YES 
3498 020430 010137 002204 MOV R1,ERRLO sSAVE ADDRESS IN ERROR 
3499 020434 005037 002202 CLR ERRHI 3NO HIGH ADDRESS 
3500 020440 010337 002176 MOV R3,EXPD sSAVE EXPD FOR ERROR REPORT 
3501 020444 011137 002200 MOV cRiD, RECV ;SAVE RECV FOR ERROR REPORT 
3502 020450 000474 BR F 
3503 020452 005721 15%: TST tRL) sPOINT TO NEXT ADDRESS 
3504 020454 005302 DEC Re ;DONE ALL MEMORY IN FREE SPACE? 
3505 020456 003362 BGT 10$ 3;68R IF NO 
3506 020460 005737 003100 TST KTFLG 3 GOT KT? 
3507 020464 001472 BEQ 55% s NO. GET OUT. 
3508 020466 004737 020052. JSR PC,KTON 3; YES. ENABLE KT. 
3509 020472 005000 CLR RO sHIGH ORDER ADDRESS S 
3510 020474 013701 003104 MOV PST32QW,R1 3GET >28K START ADORESS” H IN 32W BLOCKS) 
3511 000006 -REPT 6 
3512 ROL R1 sCONVERT BLOCKS TO WORDS 
3513 ROL RO sMAKE IT DOUBLE PRECISION 
3514 , ,ENOR 
3515 020530 042701 000177 BIC #177,R1 sALINE 4K BOUNDARY 
3516 020534 010046 MOV RO, -(SP) sSAVE HIGH ORDER 
3517 020536 010146 MOV R1,-CSP) sSAVE LOW ORDER 
3518 020540 004737 020112. . JSR PC,SETMAP ;SETUP PAR6 MAPPING REGISTER 
3519 020544 010004 MOV RO,R4 sCOPY ADDRESS BIASED TO PAR6 
3520 020546 012601 MOV (SP)+,R1 sRESTORE LOW ORDER IN NON PAR6 FORMAT 
3521 020550 012600 MOV (SP)+,RO sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
3522 020552 020314 30$: CMP R3,(R4) sABOVE 28K LOCATION EQUAL EXPD? 
3523 020554 001411 BEQ 32 ;68R IF YE 


Ss 
3524 020556 010037 002202 MOV RO,ERRHI sSAVE HIGH ORDER IN ERROR 


N8 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 76-1 SEQ 104 
CMPMEM COMPARE MEMORY TO BACKGROUND PATTERN 
3525 020562 010137 002204 MOV R1,ERRLO sSAVE LOW ORDER IN ERROR 
3526 020566 010337 002176 MOV R3,EXPO sSAVE EXPD FOR ERROR REPORT 
3527 020572 011437 002200 MOV (R4),RECV sSAVE RECV FOR ERROR REPORT 
3528 020576 000421 BR 50$ ‘ 
3529 020600 062701 000002 32%: ADD #2,R1 sUPDATE NON PAR6 ADDRESS 
3530 020604 005500 ADC RO sMAKE IT DOUBLE PRECISION ADD 
3531 020606 062704 000002 ADD @2,R4 sUPDATE PAR FORMAT ADDRESS 
3532 020612 020427 160000 CMP R4, #160000 sEND ? PAR6 MAPPING AREA? 
3533 020616 103755 BLO 30% s6R 
3534 020620 162704 020000 SUB #20000 ,R4 + BACKUP INTO PAR6 MAPPING BEGIN 
3525 020624 062737 000200 1723554 ADD #200, Q0KIPAR6 ;POINT TO NEXT 4K BLOCK >28K. 
3536 020632 023737 172354 003100 CMP BOKIPARG,KTFLG ;END OF MEMORY? 
3537 020640 101744 BLOS 30$ 36R IF NO 
3538 020642 004737 020070 50$: JSR PC ,KTOFF ; TURN OFF MEMORY MAPPING 
3539 020646 000241 cLC sSET FAILURE 
3540 020650 000403 BR 60% : 
3541 020652 004737 020070 SS$: JSR PC ,KTOFF sTURN OFF MEMORY MAPPING 
3542 020656 000261 SEC sSET SUCCESS 
3543 020660 000207 60$: RTS PC 


CZTKEA TK25 FRT END FUNC @1 
- SAVE R1-RS ON STACK 


REGSAV 


000012 
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B9 


SEQ 105 


-SBTTL REGSAV - SAVE R1-RS ON STACK 


id 

3 

sROUTINE TO 

sSAVE R1 THROUGH RS ON THE STACK 
3 

sCALLING SEQUENCE; 


’ 

’ JSR RS ,REGSAV 

’ 

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
RCISTERs. RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


i THIS gol SHOULD ONLY BE — FROM ROUTINES WHICIi ARE 


sCALLED VIA A JSR PC INSTRUCTION 
G 
g° 
REGSAV: 
BREAK sLOOK FOR CNTL C 
TRAP CsBRK 
MOV R4,-CSP) 
MOV R3,-(SP) 
MOV R2,-C SP) 
MOV R1,-CSP) 
MOV RS, -CSP) 
MOV 10.(SP),R5 
JSR PC ,@CSP)-> 
MOV (SP )>+,R1 
MOV (SP )+,R2 
MOV (SP)+,R3 
MOV CSP )+,R4 
MOV (SP )+,R5S 
BREAK 3LOOK FOR CNTIL C 
TRAP CsBRK 
RTS PC 


ye 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 78 SEQ 106 
GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3584 .SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3585 :¢ 
3586 : 
ead sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
588 a 
3589 : INPUTS: 
3590 2 
3591 3 NONE . 
3592 3 
3593 sOUTPUTS: 
3594 3 
3595 3 RO OCTAL NUMBER FROM THE OPERATOR 
3596 3 
3597 sCALLING SEQUENCE: 
3598 3 
3599 3 JSR PC ,GETPAT 
3600 3 
3601 F 
3602 
3603 020722 GETPAT:: 
3604 020722 SAVREG sSAVE THE GENERAL REGISTERS 
3605 020726 1$: GMANID DATASC,PATDAT,0O,377,0,377,NO 
020726 104443 TRAP CS8GMAN 
020730 000406 BR 100008 
020732 020756 -WORD PATDAT 
020734 000022 .WORD TSCODE 
020736 020760 -WORD DATASC 
020740 000377 .WORDB 377 
020742 000000 . WORD TSLOLIM 
020744 000377 . WORD TSHILIM 
020746 100008: 
3606 020746 BNCOMPLE TE 18 sRETRY IF ERROR 
020746 103367 Bcc 18 
3607 020750 013700 020756 MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
ore 020754 000207 RTS PC sRETURN TO CALLER 
3610 3° 
3611 3;LOCAL DATA AREA 
ae i 
3614 020756 000000 PATDAT: .WORD 0 : TEMPORARY STORAGE FOR DATA 


3615 020760 105 116 124 DATASC: -ASCIZ ‘ENTER DATA PATTERN’ 
EV 


DIY 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 79 SEQ 107 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
este .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3 > 
3620 sROUTINE TO ISSUE A MENU AND GET 
3621 :THE OPERATOR'S RESPONSE. 
3622 ; 
3623 s INPUTS: 
3624 ; 
3625 3 RO ADDRESS OF ASCIZ STRING OF MENU 
re : R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
; 
3628 sOUTPUTS 
3629 H 
it : RO NUMBER OF THE OPERATOR'S SELECTION 
1 
3632 021004 GETSEL:: 
3633 021004 SAVREG sSAVE GENERAL REGISTERS 
3634 021010 010002 MOV RO,R2 sSAVE THE MENU ADDRESS 
3635 021012 010203 1%: MOV R2,R3 sSTART OF MENU * sedate 
3636 021014 005713 2s: TST CR3) sEND OF ASCII ? 
3637 021016 001412 BEQ 3$ sBRANCH IF ALL LINES DISPLAYED 
3638 021020 PRINTF @SELASC,(R3)> sDISPLAY THE MENU 
021020 012346 MOV CR3)¢,-CSP) 
021022 012746 021170 MOV @SELASC, -( SP) 
021026 012746 000002 MOV @2,- ) 
021032 010600 MOV 
021034 104417 TRAP CSPNTF 
021036 062706 000006 ADD #6,SP 
3639 021042 000764 BR 2s 
3640 021044 3$: GMANID MENASC ,MENRES.D,-1,0,-1,NO 
021044 104443 TRAP C8GMAN 
021046 000406 BR 100018 
021050 021224 -WORD MENRES 
021052 2 -WORD TSCODE 
021054 021175 -WORD MENASC 
021056 177777 . WORD -1 
021060 000000 - WORD TSLOLIM 
021062 177777 -WORD TSHILIM 
021064 10001$%: 
3641 021064 BNCOMPLE TE 18 sRETRY IF ERROR 
021064 103352 BCC 1$ 
3642 021066 013700 021224 MOV MENRES ,RO 3GET THE OPERATOR'S REPLY 
3643 021072 020001 CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
3644 021074 101411 BLOS 5% sBRANCH IF OK 
3645 021076 PRINTF @MENERR sDISPLAY ERROR MESSAGE 
021076 012746 021122 MOV @MENERR , -( SP) 
021102 012746 000001 MOV @1,-(SP) 
021106 010600 MOV SP ,RO 
021110 104417 TRAP CSPNTF 
021112 062706 000004 ADD 04 ,SP 
3646 021116 000735 BR 1$ sRETRY 
3647 021120 000207 5$: RTS PC sRETURN TO CALLER 
3648 021122 045 116 045 MENERR: .ASCIZ ‘sNSA e402 Menu Selection Too Large eee’ 
3649 021170 045 116 045 SELASC: .ASCIZ ‘sNsT' 
poe 021175 105 156° 164 MENASC: ete ‘Enter Menu Selection: ' 
Vv 


3652 021224 000000 MENRES: .WORD 0 


CZTKEA TK2S FRT END 
CHKMAN - CHECK 


3684 021262 


FUNC @1 
MANUAL INTERVENTION LEGALITY 


. SBTTL 
s¢ 


EQ 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


3 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


3 
3s INPUT: 
3 
3 NONE . 
3 
;OUTPUT: 
3 
3 CARRY fe) MANUAL INTERVENTION NOT ALLOWED 
3 1 MANUAL INTERVENTION IS OK 
3 
;SIDE EFFECTS: 
3 
F A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3 ALLOWED. 
3 
ed 
CHKMAN: : 
SAVREG ;SAVE THE REGISTERS 
MANUAL. ;SEE IF MANUAL INTERVENTION OK 
104450 TRAP CSMANI 
BCOMPLETE 1$% ;BRANCH IF ALLOWED 
103411 bcs 1% 
PRINTF @NOMAN ;PRINT THE WARNING MESSAGE 
012746 021262 MOV @NOMAN, -( SP) 
012746 000001 MOV #1, -CSP) 
01 MOV SP ,RO 
104417 TRAP CSPNTF 
062706 000004 ADD @4,SP 
000241 cLc :CLEAR CARRY FOR ERROR 
000207 1$: RTS PC sRETURN 
045 116 045 NOMAN: .ASCIZ ‘SNSA #44 Manual Intervention not Allowed - Test Aborted see’ 


even 


SEQ 108 


CZTKEA TK25 Apt 


ENVIRN 


- SETUP 


021442 


END F 


1 


UNC 
FREE DIAGNOSTIC SPACE 


.SBTTL ENVIRN 


ry 
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- SETUP FREE DIAGNOSTIC SPACE 


; 
s SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


é 
ENVIRN: MEMORY 
TRAP 


003072 
003974 
003074 10%: 


RO 

C$MEM 

RO, FREE 

02, FREE 
(RO), FRESIZ 
04 ,FRESIZ 
LSUNIT,R2 
07, FRESIZ 
Re 


10% 
FREE ,RO 
FRESIZ,RO 


@2,RO0 
RO, FREEHI 
PC 


s GET 1ST FREE ADDRESS... 
s...AND WORD COUNT. 


s GET NUMBER OF UNITS 
3s TAKE AWAY 7 WORDS PER UNIT 


sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 
sRETURN 


SEQ 109 


G9 


FRT END FUNC 1 MACRO M1200 20-APR-84 08:12 PAGE 82 SEQ 110 
TUP KT11 MEMORY MANAGEMENT REGISTERS 


-SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


me 


s*¢ 


3 
sROUTINE TO INIT KT-11 
3 
s= 


021444 KTINIT: 


021444 005037 003100 CLR KTFLG s INIT >28K MEMORY FLAG 
021450 005037 003102 CLR K TENABLE s INIT TEST >28K FLAG 
021454 023727 002120 001577 CMP LSHIME ,@1577 s GOT ENOUGH MEMORY ( >28K)? 
021462 101444 BLOS 9$ s NO. 

021464 013700 000004 MOV BOERRVEC ,RO s SAVE OLD ERR VEC PTR. 
021470 012737 021562 000004 MOV 02% , B@ERRVEC s SE ERR VEC PTR. 

021476 005737 177572 TST BeSRO s GOT KT11? 

021502 000240 NOP s (TRAP IF NO). 

021504 013737 002120 003100 MOV LSHIME ,KTFLG s YES. SET KT FLAG. 

021512 042737 000177 003100 BIC @177,KTFLG ’ 

021520 010037 000004 MOV RO, @@ERRVEC : he | OLD ERR VEC PTR. 
021524 005000 CLR RO s RO = AR DATA 

021526 012701 172340 MOV @KIPARO,R1 ; RL = KI REGS PTR. 

021532 012761 077406 177740 18: MOV 077406,-40(R1) ; SET DESCRIPTOR REG. 
021540 010021 MOV RO,CR1)+ ; SET KIPAR REG. 

021542 062700 000200 ADD @200,RO ; BUMP AR DATA BY "4K", 
021546 020027 002000 CMP RO, #2000 s AT “I/0"? 

021552 001367 BNE 1$ s NC, 

021554 012741 177600 MOV #177600, -(R1) ; YES. SET KTPAR7 FOR I/O. 
021560 000405 BR 93 

021562 012716 021570 2s: MOV 06% ,(SP) + SET UP RETURN 

021566 000002 RTI 3 RTI TO NEXT LOCATION 
021570 010037 000004 6$: MOV RO, B@ERRVEC s RESTORE OLD ERR VEC PTR. 
021574 000207 9$: 


RTS PC 
; -IIF OF ONEFILE, . PAGE 


H9 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 83 SEQ 111 
PROTECTION TABLE 
3760 -SBTTL PROTECTION TABLE 
3761 021576 GNPROT 
021576 L$PROT:: 
3762 021576 177777 177777 «177777 . WORD -1, -1, -1, -1  sNO DEVICE PROTECTION REQUIRED. 
3763 021606 ENDPROT 


3764 


19 


ZTKEA TK FRT END FUNC @1 MACRO M1200 20-APR-84 08:12 PAGE 84 SEQ 112 
th ALIZ SECTION 
3766 .SBTTL INITIALIZE SECTION 
3767 
3768 zee 
3769 ;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
hag 3AT THE BEGINNING OF EACH PASS. 
1 3 
377 3;IF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
3773 3IF “CONTINUE”, NOTHING IS REQUIRED. 
3774 : 
3775 i-- 
3776 3° 
arr s INSERT TEMPORARY JUMP TO ODT 
778 ‘- 
3779 021606 BGNINIT 
021606 LSINIT:: 
3780 021606 408: 
3781 021606 012737 005672 002146 MOV E€PRT1,EPRTSW 3SET UP PRIMARY MESSAGE FOR REPLACEMENT 
3782 021614 005037 003106 CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
3783 021620 005037 003102 CLR K TENABLE sCLEAR TEST ABOVE 28K FLAG 
3784 021624 005037 002246 CLR RAMSIZ s;CLEAR RAM SIZE FOR RAMERR ROUTINE 
3785 021630 READEF @#€F .CONTINUE 
021630 012700 000036 MOV @€F .CONTINUE ,RO 
021634 104447 TRAP CSREFG 
3786 021636 BNCOMPLETE 1$ 
021636 103023 Bcc 1$ 
3787 021640 023737 002150 002012 CMP UNITN,LSUNIT sUNIT IN RANGE? 
3788 021646 103064 BHIS 8s ;6R IF NO. 
3789 021650 005737 003060 TST OUFLG sOROPPED UNIT? 
3790 021654 100466 BMI NXTU 3BR IF YES 
3791 021656 013701 002150 MOV UNITN,R1 
3792 021662 006301 ASL R1 
3793 021664 005761 003130 TST ERTABL(R1) 
3794 021670 001512 BEQ SETU 
3795 021672 032761 040000 003130 BIT @BIT14,ERTABL(R1) ;OROPPED? 
3796 021700 001054 BNE NXTU 
3797 021702 EXIT INIT 300 NOTHING IF “CONTINUE”. 
021702 104432 TRAP CsExIT 
021704 000412 . WORD L10030-. 
3798 021706 1$: READEF #€F .NEW 
021706 012700 000035 MOV @€F .NEW,RO 
021712 104447 TRAP CSREFG 
3799 021714 BNCOMPLETE NXTU ; TAKE NEXT UNIT IF NOT NEW PASS. 
621714 103046 BCC NXTU 
3800 021716 READEF @€F .START 
021716 012700 000040 MOV @EF .START,RO 
021722 104447 TRAP CSREFG 
3801 021724 BCOMPLETE 2$ 
021724 103404 BCS es 
3802 021726 READEF #€F .RESTART 
021726 012700 000037 MOV OEF .RESTART,RO 
021732 104447 TRAP CSREFG 
3803 021734 BNCOMPLETE 31% 
021734 103025 BCC 31% 
3804 021736 2s: 31ST PASS, BUS-INIT... 
3805 021736 BRESET ;B8US RESET. 
971736 104433 TRAP CSRESET 


3896 021740 005037 002162 CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 


CZ 
IN 


TKEA TK2S FRT END FUNC 01 
ITIALIZE SECTION 


021744 


022110 


022112 
022112 
022114 
022116 


022116 
022116 


022140 


022144 
022146 
022150 
022154 
022160 


005037 
005037 


012737 
004737 


005037 


023727 
101752 
005737 
001747 


104421 
032700 
001343 


104424 
000741 


010137 


012001 
011002 
010237 
010137 
012721 


002170 
003332 


177777 
021356 
021444 
003130 
003330 


002152 
022064 


177777 
002166 


002150 
002150 


177777 


002012 


002166 


000100 


016712 


002152 


002150 


002012 
003060 


000001 


198: 
208: 


30$: 


318: 


4$: 
NEWPAS: 


NXTU: 


11$: 


PASRPT : 


108%: 
SETU: 


JI 
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CLR FATFLG 

CLR SKIPT 

MOV @-1,QvP 
JSR PC .ENVIRN 
JSR PC .KTINIT 
MOV ®ERTABL ,.RO 
CLR CRO)> 

CMP RO, GERTABE 
BLO 30$ 

BR 4$ 

CLR QvP 

JMP PASRPT 

MOV @-1,UNITN 
CLR DEVCNT 
BREAK 

TRAP CSBRK 

INC UNITN 

CMP UNITN,LSUNIT 
BLO SETU 

MOV #-1,D0UFLG 
BR 11% 

DOCLN 

TRAP CsOCLN 
NOP 

CMP LSUNIT,@1 
BLOS NEWPAS 

TST DEVCNT 

BEQ NEWPAS 
RFLAGS RO 

TRAP CSRFLA 

BIT #ISR,RO 
BNE NEWPAS 
DORPT 

TRAP CSORPT 

BR NEWPAS 
GPHARD UNITN,RO 
MOV UNITN,RO 
TRAP C$GPHRD 
BNCOMPLETE NXTU 
BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (RO)+,R1 
MOV R1,CSRADOR 
MOV (RO)+,R1 
MOV (RO),R2 
MOV R2,IPRI 
MOV R1,IVEC 
MOV OINTR, (R1)+ 


sRESET FLAG TO ZERO “FATAL ERRORS” 
sCLEAR THE SUBTEST “SKIPPER” 


s...QUICK VERIFY... 
sSET ENVIRONMENT. 
sINITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


sINIT UNIT NUMBER 
;CLEAR COUNT OF DEVICES RUNNING 


..AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
3BR IF ONLY 1 

sARE ANY STILL RUNNING? 
3;B8R IF NO 


sSHOULD WE PRINT STATISTICS 
3BR IF NO 


;GET UNIT N P-TABLE POINTER. 


3BR IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 
sGET 1ST REGISTER ADDRESS. 


sADDRESS OF REGISTERS OF UNIT UNDER TEST 


;GET VECTOR ADDRESS. 

;GET INTERRUPT PRIORITY 

3;SET INTERRUPT PRICRITY. 

;SET INTERRUPT VECTOR POINTER... 
ts a.p WEE TOR. 2. 


SEQ 113 


FATTEAL 


19sec 


022164 
022166 


022310 


022310 
022310 
022314 
022316 
022316 
022316 


022320 


re FUNC @1 


010221 


013701 
006301 
052761 
005037 
023727 
101416 


104421 
032700 
001412 


013746 
012746 


010137 
012737 


012700 
104441 


104411 
045 


003062 
002154 


000000 
017120 


003062 
177777 


116 


MOV 


TST 
BEQ 


K9 
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R2,(R1)+ 


ave 
S$ 


SEQ 114 
.-AND PRIORITY. 


31ST PASS ?? 
sNO, SKIP THE PASS 1 STUFF. 


a 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
; THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


003130 
000001 


10$: 


003060 


2s: 


UNITN,R1 


Ri 
tea ERTABL(R1) ;SAY DEVICE RUNNING 


@PUNIT, -CSP) 
@2,-(SP) 


R1,NODEV 
@-1,O0UFLG 


sCLEAR ERROR EXTENSION FLAG. 
SARE WE TESTING MULTIPLE UNITS? 
BR IF NO. 

sYES -- GET OPERATOR FLAGS. 


s;SHOULD WE PRINT UNIT 4? 
3;8R IF NOT 
sPRINT THE “UNIT ° 


sADDRESS OF FIRST REGISTER 

sSTART OF REGISTERS 

sADDRESS OF TSSR REGISTER 

‘soe BOTH CONTROLLER REGISTERS. 
-AND BR IF ALL 


OK. 
iFLAG DEVICE AS NON-EXISTENT 
;DROP THIS UNIT. 


; 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 


3 
S$: 


L10030: 


045 PUNIT: 


SETPRI 
MOV 
TRAP 


ENDINIT 


TRAP 


@PRIOO 
@PRIOO,RO 
CsSPRI 


CsINIT 


sENABLE INTERRUPTS. 


oe /SNSNBAseeee TESTING UNIT SD28A eeeee/ 
-EVEN 


KBD Ano OROP UNITS SECT TONS 


te) 
3932 


022462 
022462 
022462 


104452 


012737 
010001 


100000 
040000 


022434 
000002 
000006 


116 


177777 


140000 
000240 


022540 
000002 


000006 


LO 
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003130 
003130 


45 


003060 


003130 
000240 


-SBTTL ADD AND DROP UNITS SECTIONS 


zee 


; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; TO BE (CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
3 OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
L$AU:: 
MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
ASL R1 : MAKE IT A WORD INDEX 
BIS #100000, ERTABL(R1) ; SET THE “ACTIVE” BIT 
BIC #40000, ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF @1%,RO 
MOV RO, -(SP) 
MOV @2,-C(SP) 
MOV SP ,R 
TRAP CSPNTF 
06 ,SP 
EXIT AU 
‘ J$ JMP 
-WORD L10031-2-. 
1%: -ASCIZ /#NSA UNIT SDA ADDED/ 
-EVEN 
ENDAU 3; UNUSED. 
L10031: 
TRAP CsAU 


gee 
THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
“DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


BGNDU 
L$DU:: 
MOV @-1,D0UFLG 
MOV RO,R1 
ASL R1 . 
BIS #140000, ERTABL(R1) : SAY DROPPED 
240,240,240 3 22222222? 


PRINTF #1$,RO 


MOV #1$,-(SP) 
MOV SP ,RO 


-WORD J$JMP 
-WORD 110032-2-. 


SEQ 115 


BD fio OROP’ UNITS. set TONS 


022540 
34 


022570 
022570 
022570 


045 


104453 


012703 
004737 
103420 


012727 
000000 


116 


o16744 
000372 
002116 
177772 
177756 


017776 


M9 
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045 18: .ASCIZ /SNSA UNIT SDSA DROPPED/ 
.EVEN 
E 
L10032: 
T Cs0u 
so 
; AUTO-DOROP CODE SECTION. 
gee 
BGNAUTO 
LSAUTO:: 
MOV #360. ,.R3 ;ENOUGH TIME FOR 2400’ 
108: JSR PC, ,WALTF sWAIT FOR SSR TO SET 
Bcs 20% ;LEAVE WHEN SSR IS SET 
DELAY sWAIT FOR .25 SECONDS 


250. 
MOV #250. ~C(PC)>+ 
-WORD 0 
MOV LSOLY,(PC)+ 


DEC R3 ;BUMP COUNTER DOWN 
10$ ;KEEP GOING 
JSR PC ,CKDROP ;TRY AND DROP UNIT 


20s: 

ENDAUTO 3; UNUSED. 
L10033: 

TRAP CsAUuTO 


REEL TO REWIND 


SEQ 116 


Ay" #1 
AND REPORT CODING SECTION 


005737 
100407 


013705 
012765 
004737 


104412 


012746 
012746 


010346 
012746 


003060 


002154 
000000 
016744 


023136 
000001 


040000 
170060 


023173 
000003 


000010 
160000 


023255 


N9 
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-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


*¢ 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCL 
LS$CLEAN:: 
TST OUFLG :"DROPPED” FLAG IS SET ON.. 
BMI 1$ ie .AND GROSS CONTROLLER FAULT. 
+. . DON! T TRY TO XCT CLEANUP CODE. 
MOV CSRADOR ,RS 3s ADDRESS OF TSV REGISTERS ON UNIBUS 
000000 MOV #0, TSSRCRS) 300 SOFT INIT 
- JSR PC ,WAITF 
2s: ENDCLN 
L10034; 


TRAP CSCLEAN 


ee 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT 
L$RPT:: 
PRINTS #DEVSUM 
MOV @DEVSUM, -(SP) 
MOV #1,- ) 
Vv SPR 
TRAP CSPNTS 
ADD 04, 
MOV R2,-CSP) 
MOV R3, -(SP) 
MOV MERTABL ,R4 H 
CLR R3 F 
1$: MOV CR4),R2 3 
BEQ 4$ H 
BPL 4$ 
BIT #B1IT14,R2 ; 
BNE 2s 3 
BIC 4tC7777,R2 : 
PRINTS #DEVONL,R3,R2 3 
MOV Re, -¢ 
MOV @DEVONL , -( SP) 
MOV 03, -(S 
MOV SP, 
TnAP CSPNTS 
ADD #10,SP 
BR 4s 
2s: CMP a, aetna ; 
PRINTS #DEVNXR.RS 
Vv R3, 


-(SP) 
MOV @DEVNXR, -( SP) 


GET START OF — TABLE. 
CLEAR UNIT NUMBER 

GET ERROR TABLE ENTRY € TEST IT. 
ZERO IF UNIT NOT RUN 


WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 


; BR IF NO 


SEQ 117 


CZTKEA TK25 FRT END FUNC @1 


CLEAN - 


012746 


000002 


160001 


023337 
000002 


B10 
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UP AND REPORT CODING SECTIONS 


308: 


4$; 


#2, -(SP) 


43 
R2, 0160001 3 WAS UNIT NOT READY AT STARTUP? 
30 ; BR IF NO. 


4 
@tC7777,R2 
pe CF kati - 


R3 
— 


1 
(SP )+,R4 
(SP)¢,R3 
(SP)+,R2 
3s UNUSED. 


CsRPT 


/BNSADEVICE STATUS SUMMARY :@N/ 

/$A UNIT S038A CONTROLLER READY, ERRORS = SDSN/ 
/$A UNIT SD038A OROPPED, NON-EXISTENT REGISTERSN/ 
/$A UNIT SD038A OROPPED, NOT READY AT STARTUPSN/ 
/$A UNIT SD3SA DROPPED, ERRORS = SDSN/ 


SEQ 118 


C10 
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TEST 1: BUS RESET TEST 
4037 .SBTTL TEST 1: BUS RESET TEST ; 
s038 | 
40 
4040 ; THIS TEST VERIFIES THAT THE MODULE'S DEVICE REGISTERS ARE 
4041 : ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
4042 : BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND 
4043 3 ANY BASIC PROBLEMS IN THE MODULE. AREAS OF LOGIC TESTED BY THE 
4044 3 SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
4045 3 SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM. THIS 
4046 3 TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
4047 3 VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
4048 3 WAITS A PERIOD OF TIME ¢ y ‘ox: THE CONTROLLER'S INITIALIZATION 
4039 3 MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
4050 : CONTENTS OF THE TSSR REGISTER, SUCCESSFUL INITIALIZATION IS 
4051 3 INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
3052 3 BITS BEING SET (1) AND ALL OTHER BITS CEXCEPT A17 AND A16 AND 
4053 3 OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
4054 3 CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
4055 3 LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE OISCREPANCIES. 
4056 3 THE ERROR REPORT ANALYZES THE TSSR CONTENTS ANO DISCERNS AND 
4057 3 REPORTS ONE OF THREE POSSIBILITIES: 
4058 8 
4059 3 
4060 3 1. TSSR CONTENTS ARE AMBIGUOUS CANY OF BITS 11-14 ARE SET, 
4061 F OR — OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
4062 3 APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
4063 3 TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
4064 3 CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
4065 3 ERROR CEXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
4066 F REPLACE THE CONTROLLER. IF THE CONTROLLER ITSELF IS BEING 
4067 3 DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
reas | 3 ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 
3 
4070 3 2. SSR = 0, SC = O AND THE ERROR CODE IN BITS O-5 IS IN 
4071 ; THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
4072 3 CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
ro 4 : INDICATES THAT A SERIOUS PROBLEM EXISTS. 
; 

4075 
4076 023470 BGNTST 

023470 Tis: 
4077 023470 005037 002170 CLR FATFLG sCLEAR FATAL ERROR FLAG 
4078 023474 012737 005672 002146 MOV EPRT1,EPRTSW 3SET UP ERROR MESSAGE SWITCH 
4079 023502 005037 003100 CLR KTFLG sHOLD OFF KT11 
4084 023506 012700 023704 MOV @TSTLIO,RO sASCII MESSAGE TO IDENTIFY TEST 
4085 023512 004737 017232 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
4086 023516 012737 000005 002164 MOV 5. ,LOOPCNT sPERFORM 5S ITERATIONS 
4087 023524 T1iLOOP; 
eee 023524 005003 CLR Ra 2USE R3 AS FATAL ERROR FLAG 
4090 023526 BGNSUB 34/////////// BEGIN SUBTEST 4/4/4///4/4///7A/ 

023526 Fists 
neve 023526 104402 TRAP csBSvu8 
4092 023530 BRESET s ISSUE A BUS RESET 

023530 104433 TRAP CSRESET 


4093 023532 004737 016744 JSR PC WAITF sWAIT FOR READY 


GESHEA: BOs RESEVO TERNS °? 


023536 
023542 
023544 


023572 


016501 


000000 


176277 
002200 


D10 
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MOV TSSR(RS),R1 ;GET THE CONTENTS OF TSSR 

MOV R1,R2 gSTART SETUP OF EXPECTED TSSR 

BIC @te<HIADDRIOFL>,R2 ;CLEAR OUT UNUSED BITS 

BIS @SSR!INBA,R2 3R4 HAS EXPECTED CONTENTS 

CMP R1,R2 ;COMPARE EXPECTED TO RECEIVED 

BEQ 103 sBRANCH IF COMPARE 

ERROF ERRNO, SFHERR,SFFMSG ;REPORT A FATAL ERROR 
TRAP CSEROF 
.WORD 101 
WORD SFHERR 
"WORD  SFFMSG 

INC R3 ;SET THE FATAL ERROR FLAG 

10$: 
ENDSUB 


PNANANNANNANAN END SUBTEST N\AANNANNANANNA 
10037: 
TRAP CsESUB 


FEST 1:6 


4109 
4110 


023574 
023576 


023702 


023704 


023724 
023724 
023724 


005703 
001402 
004737 
005003 


104401 


S FRT END FUNC 01 
US RESET TEST 


017776 


000000 
016744 
000000 


176277 
002200 


f 
017776 
017200 


023524 


~~ £7 
a 
>» 
| 
ae 


« 


156 


E10 
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208: 


108: 


208: 


408: 


R3 
20% 
PC ,CKDROP 
R3 


TSSRC(RS) 
PC ,WAILTF 
TSSR(RS),R1 


R1,R2 
@tC<HIADDR!OFL>,R2 
@SSR!INBA,R2 

R1,R2 


10$ 
ERRNO, SF IERR, SFFMSG 


R3 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


151 TST1LID: .ASCIZ ‘Initialization’ 
EVEN 


ENDTST 


s0ID WE HAVE FATAL ERROR ? 
sBRANCH IF NOT 

sGO DROP THIS UNIT, IF ALLOWED 
sRESET FATAL ERROR FLAG 


SEQ 121 


34//////////7 BEGIN SUBTEST “///////////7/ 
T1.2: 


TRAP 


sWRITE TO ISSUE A SOFT RESET 
sWAIT FOR READY TO SET 

sGET REGISTER TSSR DATA 
sSTART SETUP OF EXPECTED TSSR 
sCLEAR OUT UNUSED BITS 

sR4 HAS EXPECTED CONTENTS 
sCOMPARE EXPECTED TO RECEIVED 
sBRANCH IF COMPARE 

sREPORT A FATAL ERROR 


;SET THE ERROR FLAG 


CsB6SUB 


SFIERR 
SFFMSG 


sNA\NNNANNANANN END SUBTEST \NANANANANAAN 
L10040: 


TRAP 


3sFATAL 
3BRANL 


ERROR DETECTED ? 

IF NOT 

TIME TO OROP UNIT 
sSHOULD WE DO ITERATIONS ? 
sBRANCH IF NOT 
sLOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST — 


. WORD 


L10036: 
TRAP 


CsESUB 


CsExIT 
L10036-. 


CsETST 


F10 
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TEST 2: RAM TEST 
ree .SBTTL TEST 2: RAM TEST 
41 
4155 3 THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE CONTROLLER 
4156 F CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 
4157 3 EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY 
4158 3 ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 
4159 3 TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW. A 
4160 3 BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
4161 3 THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
4162 3 ADD. 
4163 3 
4164 3 
4165 3 
aia? 3 TEST 2, SUBTEST 1: - 
3 
4168 3 THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE 
4169 : CONTROLLER INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB 
4170 3 ANO THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
4171 3 0-7777 COCTAL): 
4172 3 
4173 Fy 
4174 Fy 1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A 
rte 3 WORD WRITE). 
F 
4177 3 2 THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO 
4178 : THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
Stan 3 LOW BYTE OF TSOB. 
3 
4181 3 3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
4182 3 THE DATA PATTERN ORIGINALLY WRITTEN; A DISCREPANCY IS 
re : REPORTED AS AN ERROR. 
3 
4185 ; 4. HE ADDRESS OF THE sr hee BEING TESTED IS AGAIN 
4186 3 UnETien INTO TSOB CWORD WRITE), TO CAUSE THE LOCATION 
4187 3 UNDER TEST TO AGAIN BE READ INTC THE LOW BYTE OF TSBA. 
4188 : THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 
et 3 REPORTED. 
3 
4191 ; S. THE HIGH BYTE OF TSBA IS CHECKED; IT SHOULD CONTAIN 
4192 3 THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
4193 F TSOB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
aiee : PROBLEM. 
3 
4196 F 6. THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 
Stes 3 IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED. 
3 
4199 ; 
4200 023726 BGNTST 
023726 Te:: 
4201 023726 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
4202 023732 012737 005672 002146 MOV #EPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 
aoee 023740 005037 003100 CLR KTFLG sHOLD OFF KT11 
4205 023744 BGNSUB s4//// 144/444 BEGIN SUBTEST 4/4/44 A4/////77/ 
023744 T2.1: 
023744 104402 TRAP csBSuB 


GE LHe RR A REG NO FUNC @1 


023746 
023752 
023756 
023764 


024010 


024010 
024012 
024016 
024022 
024026 


024114 


024116 
024116 
024116 


024672 
017232 
000002 


016470 


000002 


177777 
177776 
177776 


000400 


177777 
177776 


G10 
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002164 


20s: 
25%: 


308: 


40$: 


45$: 


@TST2I0,RO 
PC, TSTSETUP 
@2,LOOPCNT 


PC, SOF INIT 
20% 


RO,R1 
ERRNO, SF IERR, SF IMSG 


@2,R4 


R4,R2 
R4, TSOBH(RS ) 
R2, TSDOBLCRS) 
TSBALCRS),R1 
R1,R2 


30% 
ERRNO, TSBAM2 ,EXPREC 


R4,R2 
R4, TSOBHCRS ) 
TSBAL(RS),R1 
R1,R2 


45$ 
ERRNO, TSBAM2 ,EXPREC 


R4 
#2,R4 
40$ 


sASCII MESSAGE TO IDENTIFY TEST 


300 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


s00 INITIALIZE ON CONTROLLER 
s6R IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS ag 


sSET RAM ADDRESS AT TWO 


sEXPECTED DATA FROM WRAP-AROUND 


sLOAD ADDRESS INTO TSOB 
sLOADS DATA INTO RAM LOCATION 
sREADS WRAP DATA 


;DOES WRITTENCWRAP) = READ 
3BR IF OK, THEY ARE EQUAL 
sDATA NOT WRAPPED tae 


. WORD 
“WORD 
- WORD 


sNEXT ADDRESS 

sENO OF RAM MEMORY CHECK 
sLOOP TILL ALL RAM WRITTEN 
;CLEAR OUT R2 HIGH BITS 
;SET BACK TO 377 


;GET DATA PATTERN BACK IN SHAPE 


sLOAD UP RAM ADDRESS POINTER 
sREAD RAM CONTENTS BACK 
sCHECK WITH DATA WRITTEN 

;BR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 


TRAP 

. WORD 

. WORD 

. WORD 
;SCOPE LOOP oe 
sDROP DATA a {eee (PATTERN) 
;AT LOC TWO 


3BR, IF NOT AT TwO YET 


SEQ 123 


CSERHRD 
202 
TSBAM2 
EXPREC 


CSERHRD 
203 
TSBAM2 
EXPREC 


CsCLP1 


sN\ASANAANANANN END SUBTEST NANANNNANNANN 


* TRAP 


CsESUB 


CZTKEA TK25 FRT END FUNC 41 
RAM TEST 


VEST 2: 


024120 


024122 
024126 
024130 
024132 
024132 
024134 
024136 
024140 
024142 
024144 
024150 


024150 
024154 
024160 
024164 
024166 
024170 
024170 
024172 
024174 
024176 
024200 


024200 
024202 
024206 


024210 


104402 


016170 


005204 
020427 


016470 


000002 


177777 
177776 
177776 


000400 


177777 
177776 


000377 
177777 
177776 
177776 


20%: 
25%: 


40%: 


43%: 


BGNSUB 


H10O 
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TEST 2, SUBTEST 2 


SEQ 124 


37/////////7/ BEGIN SUBTEST S//S/S///A///7/7/ 
T2.2: 


THIS SUBTEST WRITES RAM WITH ALL ZEROS 
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 


JSR 
BCS 


MOV 
ERROF 


PC, SOF INIT 
20% 


RO,R1 
ERRNO, SF IERR, SF IMSG 


R2 
@2,R4 


R4, TSOBHCRS ) 
R2, TSDOBL(RS) 
TSBALC(RS),R1 
R1,R2 


30% 
ERRNO, TSBAM2 ,EXPREC 


R4 
R4, 0400 
25% 


R4 
Re 


R4, TSOBHCRS ) 
TSBALC(RS),R1 
R2 

R1,R2 


43$ 
ERRNO, TSBAM3 ,EXPREC 


#000377 ,R2 
R4, TSOBHC( RS) 
R2, TSOBL(RS ) 
TSBAL(RS),R1 
R1,R2 

45$ 


TRAP C$B8SUB 

300 INITIALIZE ON CONTROLLER 

sBR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 204 
-WORD SFIERR 
-WORD SFIMSG 

sTEST DATA = O 

sSTARTING RAM ADDRESS = 2 

sLOAD ADDRESS INTO TSOB 

sLOADS DATA INTO RAM LOCATION 

sREADS WRAP DATA 

sDOES WRITTENC WRAP) = READ ? 

;BR IF OK, THEY ARE EQUAL 

sDATA NOT WRAPPED CORRECTLY 
TRAP CSERHRD 
-WORD 205 
-WORD TSBAM2 
«WORD EXPREC 


sNEXT ADDRESS 
sENO OF RAM MEMORY CHECK 
;BR, MORE RAM TO GO 


sSET BACK TO 377 
;SET TO ALL ZEROS 


sLOAD UP THE ADDRESS FOR RAM 
sREAD THE RAM CONTENTS BACK 
sLOOKING FOR OO00000 (EXPECTED) 
sBOTH SHOULD BE 00000000 BINARY 
3BR, IF DATA IS GOOD 
sCHARACTERISTICS DATA wot tae! 


CSERHRD 
«WORD 206 
-WORD TSBAM3 
-WORD EXPREC 


;SET ALL ONES WORD 

;LOAD UP RAM ADDRESS POINTER 
sWRITE DATA INTO RAM 

sREAD RAM CONTENTS BACK 
;CHECK WITH DATA WRITTEN 

38R IF OK, DATA IN = DATA OUT 


CZTKEA TK25 FRT END FUNC @1 


- TEST 2: 


4314 


4315 


4316 
4317 
4318 
4319 
4320 


4321 


RAM TES 


024266 
024266 
024270 
024272 
024274 
024276 
024276 
024300 
024302 
024306 


024310 
024310 
024310 


T 


104456 
000317 
024530 
016170 


000002 


110 
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45$: 


ERRHRD 


ERRNO, TSBAM2 ,EXPREC 


R4 
02,R4 
40$ 


sWRITTEN DATA NOT = TO READ 
TRAP 


sSCOPE LOOP 


TRAP 
sDROP RAM ADDRESS POINTER 
sAT LOC 2 YET 
;BR, IF NOT AT TWO YET 


SEQ 125 


TSBAM2 
EXPREC 


CsCLP1 


ENNNANNNANNANN END SUBTEST \ANNAANANAANA 
0043: 


TRAP 


CsESUB 


Gecye4, Team fest FUNC #1 


024312 
024312 
024312 


024314 
024320 
024322 
024324 
024324 
024326 
024330 
024332 
024334 
024340 
024344 
024344 
024344 
024346 
024352 
024356 
024362 
024364 
024366 
024366 
024370 
024372 
024374 
024376 
024376 
024376 
024376 


024400 
024402 
024406 


024410 
024412 
024412 
024416 
024420 
024424 
024430 
024432 
024434 
024434 
024436 
024440 
024442 
024444 
024446 


104402 


016170 


104405 
005204 
020427 
001356 
005304 


012702 


016470 


177777 
000002 


177777 
177776 
177776 


000400 


000377 


177777 
177776 


177777 


J10 
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208: 
258: 


35%: 
40$: 


43%; 


BGNSUB 


TEST 2, SUBTEST 3 


THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 


CLR 
MOVB 


PC, SOF INIT 
20% 


RO,R1 
ERRNO, SF TERR, SF IMSG 


@177777,R2 
@2,R4 


R4, TSOBHC(RS ) 
R2, TSOBL(RS) 
TSBALCRS),R1 
R1,R2 


30$ 
ERRNO, TSBAM2 ,EXPREC 


R4 

R4, #400 

25% 

R4 

#000377 ,R2 
R1 

R4, TSOBHCRS ) 
TSBALC(RS),R1 
R1,R2 


43% 
ERRNO, TSBAM3,EXPREC 


R2 
R4, TSDBH(RS ) 


SEQ 126 


WAAAALAAAAAL niet patter AAAAAAAAAA 
a.33 


TRAP Cs8SUB 

300 INITIALIZE ae CONTROLLER 

;BR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 208 
-WORD SFIERR 
-WORD SFIMSG 


3SET DATA AT ALL ONES 
;SET RAM ADDRESS AT TWO 


3>>>>>>>>>>>> BEGIN —— >>> >>>>>>>>> 


TRAP CSBSEG 
sLOAD ADDRESS INTO TSOB 
sLOADS DATA neon RAM LOCATION 
sREADS WRAP DAT 
;00ES WRIT TENCWRAP ) = READ ? 


;BR IF OK, THEY ARE EQUAL 
;DATA NOT WRAPPED CORRECTLY 
TRAP CSERHRD 
-WORD 209 
-WORD TSBAM2 
«WORD EXPREC 
3< eee Ceecee END SEGMENT <cceeeeeeeee$e 
0000$: 
TRAP CSESEG 


sNEXT ADDRESS 
sEND OF RAM MEMORY CHECK 
3BR, MORE RAM TO GO 


3SET BACK TO 377 


3SET UP EXPECTED DATA REGISTER 
sCLEAN OUT REGISTER 

sSELECT ADDRESS IN RAM 

sPICK UP RAM CONTENTS 

sIS MEMORY STILL ALL ONES 

3sBR, IF OK CALL ONES) 

sMEMORY CHANGED AFTER ALL ONES WRITE 


TRAP CSERHRD 
-WORD 210 

. WORD TSBAM3 
. WORD EXPREC 


;SET UP NEW EXPECTED 
;LOAD UP RAM ADDRESS POINTER 


GELEAERHLSFe TE 


4372 
4373 
4374 
4375 
4379 


024510 
024510 
024510 


024512 


024530 
024612 
024672 


024676 
024676 
024676 


024530 
016170 


104406 
005304 
022704 
001341 


177776 
177776 


017200 
023764 


127 
162 
141 


K10 
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MOVB R2, TSOBLCRS) 
MOVB TSBALC(RS),R1 
CMPB R1,R2 
BEQ 453 
ERRHRD ERRNO, TSBAM2,EXPREC 
45$: CKLOOP 
DEC R4 
CMP 02,R4 
BNE 40$ 
ENOSUB 
JSR PC, TSTLOOP 
BCC 63% 
JMP T2LO0P 
63%: EXIT TsT 


3¢ 

sLOCAL TEXT MESSAGES FOR TEST 
g 

TSBAM2: .ASCIZ 
TSBAM3;: .ASCIZ 
TSTe2I0: ey 


.EVEN 
ENDOTST 


162 
151 


155 ‘Ram’ 


SEQ 127 
sWRITE DATA INTO RAM 
sREAD RAM CONTENTS BACK 
sCHECK WITH DATA WRITTEN 
sBR IF OK, DATA IN = DATA OUT 
sWRITTEN DATA NOT = TO READ 
TRAP CSERHRD 
«WORD 211 
«WORD TSBAM2 
«WORD EXPREC 
sSCOPE LOOP 
CsCLP1 


TRAP 
sDROP RAM ADDRESS POINTER 
sCHECK LOC TwO 
;BR, IF NOT AT LOC 2 YET 


gNANNNANANNANN END SUBTEST \ANNANANNAANA 
10044; 


TRAP CsESUB 
s00 WE NEED TO ITERATE TEST ? 
;BRANCH IF NOT 
sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP CsExIT 
«WORD L10041-. 


‘ Write to TSDB Not Equal to Read of TSBA Low Byte’ 
‘Write To RAM Location Modified Another Location’ 


L10041: 


TRAP CsETST 


7 3h (NEA. . 


ray No Ne EM 1 


L10 
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-SBTTL TEST 3: COMMAND REJECT 


THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST gers MICROPROCESSOR SEQUENCING, BASIC 
COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. — 1 
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG oe te 
INTERRUPTS. THE COMMAND WORD IN THE COMMAND BUFFE Ris, 
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN 
THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
FOLLOWING SEQUENCE IS PERFORMED: 


1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR; 
PROPER INITIAL CONDITIONS ARE VERIFIED. 


2. TSOB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
START PROCESSING. 


3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET, 
AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 


4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
IT CONTAINS EITHER OCTAL 102206 OR 1023506 (BIT 6 
DEPENDS UPON THE STATE OF THE TAPE TRANSPORT). 


S. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
PLUS 10 (OCTAL); I.€., TSBA SHOULD POINT TO THE WORD 
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND 
PACKET WORDS ARE ALWAYS FETCHED). 


6. USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE 
COMMAND IMAGE BLOCK IN THE CONTROLLER'S RAM (LOCATIONS 
201-210 COCTAL)) ARE CHECKED; THE IMAGE SHOULD CONTAIN 
Riya a4 Bas FOUR COMMAND PACKET WORDS AS SET UP IN 


7. THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
TO THE NEXT PATTERN NOT CONTAINING WRITE 
CHARACTERISTICS OR IE. THE REMAINING THREE WORD OF THE 
COMMAND BUFFER ARE SEQUENCED WITH PSEUDO-RANDOM DATA. 
IF THE COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE 
(177777+1), THE TEST SEQUENCE IS REPEATED. 


SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 


SEQ 128 


ere, TKEe FRT END cue #1 


012737 


104402 


012700 
104441 
012704 
012703 
012314 


104456 
025733 


002170 
002172 
017060 


000200 
177776 
016744 


017724 


002172 


M10 
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Cc 

; VERIFIES THAT AN 
: 

BGNTST 

CLR FATFLG 

002146 MOV #EPRT1,EPRTSW 

CLR KTFLG 

MOV @TST3ID,RO 

JSR PC, TSTSETUP 

002164 MOV #2, ,LOOPCNT 

T3LOOP: 

BGNSUB 

SETPRI #PRIOO 

MOV @T3PACKET ,R4 

MOV #TSTBLK,R3 
S$: MOV CR3)+,CR4) 

BGNSEG 

JSR PC, SOF INIT 

BcS 10$ 

MOV RO,R1 

ERROF ERRNO, SF IERR, SF IMSG 
10$: CLR FATFLG 

CLR INTRECV 

JSR PC,CHKTSSR 

BIC oBIT7,(R4) 

MOV R4, TSDBCRS) 

JSR PC ,WAITF 

Bcs 15$ 

MOV RO,R1 

ERRDF ERRNO, T3SSR,PKTSSR 

JSR PC, FATCHK 
15%: CKLOOP 

ESCAPE SUB 

TST INTRECV 


BEQ 22% 
ERRHRD ERRNO, TSINT,PKTSSR 


SEQ 129 


AUSES THE IE yy TO BE SET IN EACH COMMAND WORD AND THEN 
INTERRUPT OCCURS. 


T3: 
;CLEAR FATAL ERROR FLAG 
3SET UP ERROR MESSAGE SWITCH 


sHOLO OFF KT11 


sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


AAAAAALAALALA “— SUBTEST ////////44/47/7/ 
el: 


TRAP Cs6SUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV oPRIOO,RO 

TRAP CsSPRI 
sGET THE ADDRESS OF COMMAND PACKET 


sBLOCK OF TEST DATA 
s INSERT THE NEXT TEST DATA WORD 
3 >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


TRAP C$BSEG 

300 SOFT INIT OF CONTROLLER 

sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 301 
-WORD SFIERR 
. SF IMSG 

;CLEAR FATAL ERROR FLAG 

;CLEAR INTERRUPT RECEIVED FLAG 

sWAIT FOR READY, NON-AMBIGUOUS 

sOISABLE INTE RRUPTS 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 302 
«WORD T3SSR 


.WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP CscLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WORD 1L10046-. 
s0ID AN INTERRUPT OCCUR ? 
;BRANCH IF NOT 
TRAP CSERHRD 
-WORD 303 
-WORD TS3INT 


FEAST SBR ABER 


025240 


025242 
025246 
025250 


026071 


102206 
017060 
000000 
000100 


000100 


017060 
177776 


010354 


177740 
000004 


000002 
003030 


024754 


002170 
017776 


N10 
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228: MOV @SC !NBA!SSR! TSREJ,R2 

JSR PC ,CHKTSSR 

MOV TSSRCRS),R1 

BIT OOFL, %1 

BEQ 25% 

BIS @OFL ,R2 
25%: CMP R2,R1 

BEQ 30$ 

ERRHRD ERRNO, TSNBA,PKTSSR 
30%; CKLOOP 

JSR PC,CHKTSSR 

MOV TSBACRS),R1 

MOV R4,R2 

CMP R1,R2 

BEQ 35$ 

ERRHRD ERRNO, T3TSBA,EXPREC 
35$: JSR PC ,CKRAM 

BCS 40$ 

ERRHRD ERRNO,PKTRAM,RAMERR 
40$: ENDSEG 

MOV CR3),RO 

BIC #177740,RO0 

CMP . 

BNE 45% 

ADD #2,R3 
4S$: CMP R3,@TBLEND 

BHIS 50$ 

JMP 5$ 
50$: ENDSUB 

TST FATFLG 

BEQ 60$ 

JSR PC, CKDROP 


SEQ 130 
P PKTSSR 
sEXPECTED CONTENTS OF TSSR 
sWAIT FOR READY, NON-AMBI 
sGET THE CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
3SET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sD0ES EXPECTED MATCH RECEIVED? 
sNBA NOT SET TO REJECT 
CSERHRD 
«WORD 304 
.WORD T3NBA 
«WORD PKTSSR 
sLOOP ON ERROR ? 
TRAP CSCLP1 
sWAIT FOR READY, NON-AMBIGUOUS 
;GET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 
sCOMPARE EXPECTED TO RECEIVED 
FERROR IF NOT EQUAL 
sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 305 
-WORD T3TSBA 
-WORD EXPREC 
;SEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 
TRAP CSERHRO 
«WORD 306 
-WORD PKTRAM 
RAMERR 
geeeeeecececeee END SEGMENT Pee ee eee eeaa a 
10000$: 
TRAP CSESEG 
sPACKET COMMAND WORD 
;GET BITS 0-4 
;D00N'T TEST WRITE CHARACTERISTICS 


sBRANCH IF OK 

3GET NEXT WORD FROM DATA TABLE 
sREACHED END OF TABLE ? 
;BRANCH IF END OF TABLE 
sCONTINUE TEST WITH NEW DATA 


a NNNANANANAANN — SUBTEST \ANNNNNNANNNA 
L 3 
TRAP CsESUB 
sANY FATAL ERRORS ? 


sBRANCH IF NOT 
;TRY TO DROP THE UNIT 


CZTKEA TK25 FRT END FUNC @1 
TEST 3: COMMAND REJECT 


4554 


025254 
25254 


104402 


012700 
104441 
012704 
012703 
012314 


002170 
002172 
017060 


000200 
177776 
016744 


017724 


002172 


102206 
017060 
000000 


000100 
000100 


608; 


S$; 


108: 


15%: 


228: 


258: 


BGNSUB 


Bil 
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@PRIOO 


@TSPACKET ,R4 
@TSTBLK,RS 
CR3)+,CR4) 


PC, SOF INIT 
108 


RO,R1 
ERRNO, SF TERR , SF IMSG 


FATFLG 
INTRECV 

PC ,CHKTSSR 
@BIT7.(R4) 
R4, TSOBCRS) 
PC ,WAITF 
15% 


RO,R1 
ERRNO, T3SSR,PKTSSR 


PC .FATCHK 
SUB 


INTRECV 


22% 
ERRNO, TSNINT,PKTSSR 


@SC !NBA! a !TSREJ,R2 


PC ,.CHKTSSR 
TSSR(RS),R1 
R1 


30% 
ERRNO, TSNBA,PKTSSR 


SEG 131 


347////////7/7/ BEGIN SUBTEST S///S//////7/ 
3.2: 
TRAP C$B8SU8 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO ,RO 


TRAP CSSPRI 
3GET THE ADDRESS OF COMMAND PACKET 
sSTART OF TEST DATA 
sPLACE NEXT DATA WORD IN PACKET 
4>>>>>>3>>>>> BEGIN SEGMENT >>> >>>>>>> >> 

TRAP CSBSEG 
300 SOFT INIT OF CONTROLLER 
36R IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR ei Be 


C SERDF 

ryORD 307 
-WORD SFIERR 
-WORD SF IMSG 

sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

sWAIT FOR READY, NON-AMBIGUOUS 

sENABLE INTERRUPTS 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 308 
-WORD T3SSR 


«WORD PKTSSR 
sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
3BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
‘ L10047.-. 
:0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
sREPORT ERROR IF NO INTERRUPT 
TRAP CSERHRD 
-WORD 309 
. WORD T3NINT 
PKTSSR 


sEXPECTED CONTENTS OF TSSR 
sWAIT FOR READY, NON-AMBIGUOUS 
sGET THE CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF -LINE 
sSET OFF-LINE IN EXPECTED DATA 
s00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT SET TO REJECT 
TRAP CSERHRO 
-WORD 5310 


ae TK2S FRT END FUNC @1 


3: COMMAND REJECT 


026071 


000000 
052525 
125252 


017060 
177776 


010354 


177740 
000004 
000002 
003030 
025274 


002170 


017776 
017200 


024734 


Ci 
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308: CKLOOP 


JSR PC,.CHKTSSR 
MOV TSBACRS),R1 
MOV R4,R2 

CMP R1,R2 

BEQ 


35% 
ERRHRD ERRNO, TSTSBA,EXPREC 


358: JSR os =~ 
ERRHRD ERRNO,PKTRAM,RAMERR 


40%: ENOSEG 
MOV (R3),RO 
BIC @177740,R0 
CMP RO, 04 
BNE 45% 
ADD @2,R3 
45$: CMP R3,@TBLEND 
BHIS 50% 
JMP S$ 
50$: ENOSUB 
TST FATFLG 
BEQ 60% 
JSR PC ,CKDROP 
608: JSR PC, TSTLOOP 
BCC 62% 
JMP T3LOOP 
62%: EXIT TsT 


3° 
sLOCAL STORAGE FOR THIS TEST 
g° 


-BLK 10-<, - TUV2AE7> 
T3SPACKET: 
WORD 


. 0 
-WORD 052525 
-WORD 125252 


SEQ 132 


-WORD T3NBA 
«WORD PKTSSR 
sLOOP ON ERROR ? 


TRAP CsCLP1 
sWAIT FOR READY, NON-AMBIGUOUS 
iGET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 
sCOMPARE EXPECTED TO RECEIVED 
sERROR IF NOT EQUAL 
sPRINT THE ERROR € EXPD/RECV 
TRAP CSERHRO 
«WORD 311 
-WORD TS3TSBA 
«WORD EXPREC 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 
sREPORT THE RAM ERROR(S) 

TRAP CSERHRD 


. WORD RAMERR 

g<eeecceecececece END SEGMENT ree ee eee ee eae 
10000$: 

TRAP CsESEG 
sNEXT PACKET COMMAND WORD 
sGET BITS 0-4 
3:00N'T TEST WRITE CHARACTERISTICS 
sBRANCH IF NOT WRITE CHARACTERISTICS 
:B8Y-PASS WRITE CHARACTERISTCS 
sHAVE WE COMPLETED DATA TABLE ? 
sBRANCH IF ALL TESTED 
sTEST WITH NEXT DATA 


SNNNNANANAANAN END SUBTEST \ANANNANNAAAN 
Ll $ 
TRAP CsESuB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO OROP THE UNIT 
sSHOULD WE ODO ITERATIONS ? 
s;BRANCH IF NOT 
sLOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST 
TRAP CSExIT 


-WORD L10045-. 


sCOMMAND PACKET FOR TEST 
sWILL CONTAIN VARIABLE COMMANDS 


Dil 


CZTKEA TK25 FRT =~ FUNC 1 MACRO M1200 20-APR-84 08:12 PAGE 94-2 SEQ 133 
TEST 3: COMMAND REJECT 

4649 025626 052525 .WORD 052525 

4650 

4651 

4652 se 

4653 3LOCAL TEXT MESSAGES FOR TEST 

4654 $- 

4655 

4656 025630 103 157 155 T3NBA: .ASCIZ ‘Command Not Re ted’ 

4657 025655 103 157 156 T3SSR: .ASCIZ ‘Contents of TSSR Incorrect After Write Packet’ 

4658 025733 125 156 145 TS3INT: .ASCIZ ‘Unexpected Interrupt Received On Write Packet’ 

4659 026011 105 170 160 T3NINT: .ASCIZ ‘Expected Interrupt Not Received On Write Packet’ 

4660 026071 111 156 143 T3TSBA: .ASCIZ ‘Incorrect TSBA Address After Packet Write’ 

4661 026143 103 157 155 TST3ID: .ASCIZ ‘Command Re ject’ 

4662 .EVEN 

4663 026162 ENDTST 

026162 L10045: 


026162 104401 TRAP CsETstT 


E11 
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TEST 3: COMMAND REJECT 

4665 

4666 * .SBTTL TEST 4: WRITE CHARACTERISTICS 

poet! 

466 

4669 3 THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 

4670 Hy COMMAND. IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 

4671 H DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 

4672 3 ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 

4673 ; MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 

4674 3 CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 

4675 3 DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS IS 

4676 3 VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 

4677 3 TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 

4678 3 INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUNS AT 

4679 3 PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE SET UP 

3680 3 TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, A 

4681 3 PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 

asan 3 THE ROM OR PIPELINE. 

4 3 

4684 3 THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMAND 

4685 Hy DECODING, DMA LOGIL., AND BASIC PACKET PROTOCOL HANDLING. THIS 

4686 3 IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 

4687 - 3 MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 

4688 3 TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 

ry 4 3 THE TRANSPORT BUS) DEFINITELY INDICATE A BAD CONTROLLER MODULE. 

6 3 

4691 : 

4692 ; 

4693 026164 BGNTST 
026164 T4:: 

4694 026164 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 

4695 026170 012737 005672 002146 MOV €PRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 

4696 026176 005037 003100 CLR KTFLG sHOLD OFF KT11 

4701 026202 012700 030117 MOV @TST4ID,RO sASCII MESSAGE TO IDENTIFY TEST 

4702 026206 004737 017232 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

4703 026212 012737 000002 002164 MOV 2. ,LOOPCNT sPERFORM 2 ITERATIONS 

4704 026220 T4LOOP: 

4705S 026220 BGNSUB 34////4/////¢/ BEGIN SUBTEST 4/4///4/44/474// 
026220 T4.1: 
026220 104402 TRAP Cs6Sus8 

pins | 026222 004737 030146 JSR PC, T4REST ;SET PACKET TO START-UP VALUES 

4708 026226 SETPRI @PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
026226 012700 000000 MOV @PRIOO,RO 
026232 104441 TRAP C$SPRI 

4709 026234 012703 002732 MOV @TSTBLK+10. ,R3 ;START OF TEST DATA 

4710 026240 012704 027250 MOV @T4PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

rte! reed 012764 000010 000006 MOV 08. ,PKBCNT(R4) ;START WITH MINIMUM ALLOWABLE VALUE 

1 2 5$: 

4713 026252 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

ane 026252 104404 TRAP CSBSEG 

4715 026254 004737 016470 JSR PC,SOF INIT 300 SOFT INIT OF CONTROLLER 

4716 026260 103405 6cSs 10% ;68R IF SOFT INIT = OK 

4720 026262 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4721 026264 ERROF ERRNO, SFIERR,S? IMSG ;DEVICE FATAL ERROR DURING INIT 


026264 104455 TRAP CSEROF 


* Saal es FRT END Ce 1 
wR CHARACTERISTICS 


ITE 


016170 


004737 
103404 


104456 


002170 
002172 
177776 
017060 


017724 


002172 


000100 


017060 
177776 
027250 


010354 


Fil 
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10$: 


15$: 


228: 


25%: 


308: 


35%: 


FATFLG 
INTRECV 

R4, TSOBCRS) 
PC,CHKTSSR 
15% 


RO,R1 
ERRNO, T4SSR,PKTSSR 


PC ,FATCHK 
SEG 


INTRECV 
22s 
ERRNO, T4INT,PKTSSR 


TSSRCRS),R1 
@SSR,R2 


30% 
ERRNO, T4NBA,PKTSSR 


PC ,.CHKTSSR 
TSBACRS),R1 
@T4PACKET ,R2 
R1,R2 


35% 
ERRNO, T4TSBA,EXPREC 


PC,CKRAM 
40% 
ERRNO ,PKTRAM,RAMERR 


sCLEAR FATAL ERROR FLAG 
sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADDRESS 


sWAIT FOR SSR TO SET 


sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sOEVICE FATAL SSR —— 


“WORD 
:INC AND CHECK FOR MORE THAN 25 
;LOOP ON ERROR, IF FLAG SET 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 


sBRANCH IF NOT 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LI 
sSET OFF-LINE IN EXPECTED DATA 
sD00ES EXPECTED MATCH RECEIVED ? 


sOKAY IF MATCH 
sNBA NOT ZERO 


:LOOP ON ERROR ? 
sWAIT FOR READY, 
sSTART OF THE BUFF 


ER 
;COMPARE EXPECTED TO RECEIVED 


sERROR IF NOT EQUAL 


sPRINT THE ERROR € EXPD/RECV 
TRAP 


3SEE IF DATA IN RAM IS CORRECT 


NON - AMBIGUOUS 
:GET TSBA REGISTER CONTENTS 


SEQ 135 


401 
SF IERR 
SF IMSG 


CsCLP1 


CSESCAPE 
10000$-. 


CSERHRD 
403 
T4INT 
PKTSSR 


CSERHRD 
404 
T4NBA 
PKTSSR 


Csc.P1 


CSERHRD 
405 
T4TSBA 
EXPREC 


sBRANCH IF PACKET IN RAM IS CORRECT 


sREPORT THE RAM ERROR(S) 
T 


CSERHRD 


Fest ar Gatrte chaRacteRrstics 


4770 
4771 026466 


4772 

4773 026470 
4774 026474 
4775 026500 
4776 026502 
4777 

4778 026506 


4779 

4780 026510 
4781 026514 
4782 026516 
4783 026522 


000006 
003030 
026252 


002170 
017776 


Gil 
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40$: ENDSEG 


MOV (R3)+,PKBCNTCR4 ) 


CMP R3, @TBLEND 
BHIS 55% 
JMP S$ 


SS$: ENDSUB 


TST FATFLG 
BEQ 60$ 
JSR PC ,CKDROP 


60$: 


SEQ 136 
-WORD 406 
» WORD PK TRAM 
WORD RAMERR 
geeeeececceececee END SEGMENT <cceeeeeecece 
10000$: 
TRAP CSESEG 


sSET THE TEST WORD 

sHAS ALL DATA BEEN TESTED ? 
sBRANCH IF ALL DATA DONE 
sBRANCH TILL BACK TO ZERO 


gNANNNNANANNNN END SUBTEST \A\ANANANANAS 
L10051: 
TRAP CsESuB 
sANY FATAL ERRORS ? 


;BRANCH IF NOT 
s;TRY TO DROP THE UNIT 


7 3h TKEA TK2S FRT 


4: 


4830 


WRITE 


Hil 
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011520 
016501 


000000 


027314 
027250 
030146 


016470 


002172 


000002 
177776 
016744 


002172 


000000 


3* 


; 
sTEST 4, SUBTEST 2 


; 
;CHECK THAT UNUSED BITS BEING SET CAUSES 


SEQ 137 


sWRITE CHARACTERISTICS COMMAND TO BE REJECTED 


S$: 


10$: 


15$: 


223: 


BGNSUB 


SETPRI 


CKLOOP 
ESCAPE 


@PRIOO 


@T42DATA,RS 
@T4PACKET ,R4 
PC, T4REST 
PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


INTRECV 


2(R3), CRO) 
R4, TSDBCRS) 
PC. WAITF 
15$ 


RO,R1 
ERRNO, T4SSR,PKTSSR 


SEG 


INTRECV 
22s 
ERRNO, T4INT,PKTSSR 


TSSRCRS),R1 


3///////4//7/7 BEGIN SUBTEST S/SS/S/S//////7/ 
74.2: 


TRAP CsB6SUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 


TRAP CsSPRI 
sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR siete” unis 


CSEROF 
-WORD 407 
-WORD SFIERR 


«WORD  SFIMSG 
sCLEAR INTERRUPT RECEIVED FLAG 

;START OF THE COMMAND PACKET 

;OFFSET TO THE DATA WORD TO TEST 

sSET THE DATA BITS TO BE TESTED 

sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR Fane i. SET 


CSEROF 
"MORO 408 
-WORD T4SSR 
.WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
3BY-PASS CHECKS IF FATAL —" 
CSESCAPE 
100008 -. 
;0ID AN INTERRUPT OCCUR >" 
;BRANCH IF NOT 
TRAP CSERHRD 
-WORD 409 
-WORD T4INT 


-WORD PKTSSR 
;GET THE CONTENTS OF TSSR 


T11 
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TEST 4: WRITE CHARACTERISTICS 

4831 026660 012702 102206 MOV @SC!SSR! TSREJ!NBA,R2] sEXPECTED CONTENTS OF TSSR 

4832 026664 032701 000100 BIT @OFL ,R1 sIS OFF-LINE BIT SET ? 

4833 026670 001402 BEQ 25% sBRANCH IF NOT OFF-LINE 

4834 026672 052702 000100 BIS @OFL ,R2 3SET OFF-LINE IN EXPECTED DATA 

4835 026676 020201 25%: CMP R2,R1 s00ES ag dk MATCH RECEIVED ? 

4836 026700 001414 BEQ 30$ sOKAY IF MATCH 

4837 026702 010100 MOV R1,RO0 sDATA FROM TSSR 

4838 026704 xOR R2,RO sFINO BITS IN ERROR 

4839 026714 020027 002000 CMP RO, ONBA :IS NBA ONLY BIT IN ERROR ? 

4840 026720 001404 BEQ 30$% 3;00N’ T PRINT ERROR IF NBA ONLY BAD BIT 

4844 026722 ERRHRD ERRNO, T42REJ,PKTSSR 3;COMMAND NOT REJECTED 
026722 104456 TRAP CSERHRD 
026724 000632 — 410 
026726 027461 T4QREJ 
026730 011520 PKTSSR 

3845 026732 308: CKLOOP :LOOP ON ERROR ? 
026732 104406 TRAP CSCLP1 

4846 026734 032701 002000 BIT @NBA,R1 :IS NBA BIT SET ? 

4847 026740 001004 BNE 35$ 3;OKAY IF NBA SET 

4851 026742 ERRHRD ERRNO, T42NBA,PKTSSR sNBA NOT SET 
026742 104456 TRAP CSERHRD 
026744 000633 .- WORD 411 
026746 027330 wORD T42NBA 
026750 011520 WORD PKTSSR 

4852 026752 358: 

4853 026752 ENDSEG g<eeeeececcccee END SEGMENT <ceeeeeececce 
026752 10000$: 

asse 026752 104405 TRAP CsESEG 

4855 026754 062703 000004 ADD 4,R3 sPOINT TO NEXT DATA PAIR 

4856 026760 020327 027330 CMP R3, @T42D0NE sCOMPARE TO END OF TEST DATA 

4857 026764 103002 BHIS 573% ;BRANCH IF ALL DATA TESTED 

aan 026766 000137 026536 JMP 5$ ;BRANCH TILL BACK TO ZERO 

4860 026772 57$: ENDSUB sN\ANNANNANANNN END SUBTEST \NANAANAANANA 
026772 L1005e: 


026772 104403 "TRAP CsESUB 


cr, TK25 FRT END FUNC @ 
4: WRITE CHARACTERISTICS 


027014 


027020 
027024 


027656 


001402 


000000 


027314 
027250 
030146 


016470 


002172 
000001 
177776 
016744 


002172 


000000 
102206 
000100 


Jil 
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027260 


3? 
; 
sTEST 4, SUBTEST 3 


SEQ 139 


3 
;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 


BGNSUB 
SETPRI PRION 


MOV @T42DATA,RS 
S$; MOV @T4PACKET ,R4 
JSR PC, T4REST 


JSR PC, SOF INIT 
10$ 


MO RO,R1 
ERRDF  ERRNO,SFIERR,SFIMSG 


10$; CLR INTRECV 
BIS @1,T4DATA 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
BcS 15$ 


RO,R1 
ERRDF ERRNO, T4SSR,PKTSSR 


15$: CKLOOP 
ESCAPE SUB 


TST — 
ERRHRD ERRNO, T4INT,PKTSSR 


22%: MOV TSSRCRS),R1 
MOV @SC!SSR!TSREJ!NBA,R2 
BIT OOFL ,R1 
BEQ 25% 


34/////////// BEGIN SUBTEST //////////7/7/ 
74.3: 
TRAP C$BSUB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV oPRIOO,RO 
TRAP CsSPRI 

sSTART OF TEST DATA FOR SUBTEST 

sGET THE ADDRESS OF COMMAND PACKET 

;RESTORE PACKET TO STARTING VALUES 


300 SOFT INIT OF CONTROLLER 
3BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR — P is 


CSEROF 
THORD 412 
-WORD SFIERR 
-WORD  SFIMSG 
;CLEAR INTERRUPT RECEIVED FLAG 
sMAKE ADDRESS ODD 
;SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
sSAV.. CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 413 
«WORD T4SSR 
-WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
L10053-. 


. WORD 
;DID AN INTERRUPT OCCUR ? 
;BRANCH IF NOT 


"wORD T4INT 


-WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF -LINE 


‘é 


TWEA TKS FRT 


st 


4909 
4910 
4911 
4912 
4913 
4914 
4915 
4919 


WRITE 


027140 
027144 
027146 


027216 


027220 
027220 
027220 


027222 
027226 
027230 
027234 
027234 
027234 
027236 


027240 


027270 


027270 
027274 


CHARACTERISTICS 


100004 
027260 
000000 


000010 
027274 
000000 
000016 
000000 


000000 


000100 


002000 


002000 


002170 
017776 


MACRO M1200 20-APR-84 


25%: 


308: 


35%: 


60$: 


Kil 
08:12 PAGE 97-1 
@OFL .R2 
R2.Ri 
308 
R1,RO 
R2,RO 
RO, ONBA 


30$ 
ERRNO, T44REJ,PKTSSR 


ONBA,R1 
35% 
ERRNO, T42NBA,PKTSSR 


FATFLG 
60$ 

PC ,CKDROP 
TsT 


3° 
;LOCAL STORAGE FOR THIS TEST 


T4PACKET: 


T4DATA: 


BLKB 


10-<, -TUV2AE7> 


100004 
T4DATA 


SEQ 140 


;SET OFF-LINE IN EXPECTED DATA 

3D0ES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

;DATA FROM TSSR 

sF IND BITS IN ERROR 

3IS NBA ONLY BIT IN ERROR ? 

3;00N'T PRINT ERROR IF NBA ONLY BAD BIT 
;COMMAND NOT REJECTED 


TRAP CSERHRD 
WORD 15 
» WORD T44REJ 
~-WORD PKTSSR 
;LOOP ON ERROR ? 
TRAP CSCLP1 
;IS NBA BIT SET ? 
;OKAY IF NBA SET 
sNBA NOT SET 
TRAP CSERHRD 
-WORD 416 
. WORD T42NBA 
.WORD PKTSSR 
s\ANNANNANAANNN END SUBTEST NANANNAANAANA 
L10053: 
TRAP CsESUB 
;ANY FATAL ERRORS ? 
;BRANCH IF NOT 
;TRY TO DROP THE UNIT 
;ALL DONE THIS TEST 
TRAP CsExIT 
. WORD L10050-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


s;CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


3 SPACE 
sMESSAGE BUFFER 


festa" 


027314 
027314 
027320 
027324 


GRITE CHARACYERTSt ICs 


000000 037140 


027330 


116 102 
127 122 
127 122 
127 122 
103 157 
125 156 
111 156 
127 162 


Lil 
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+ TEST DATA FOR SUBTEST TWO 
; 
sDATA HAS FORMAT: 


8 
3 1ST WORD OFFSET TO TEST WORD IN PACKET 
3 2ND WORD BITS TO SET FOR TEST 
3 
Rg 
T42DATA: 
ro 0, BITS!IBIT6E!BITSIBITLO!BIT11:BIT12!:B1IT13 


. 2,BITO 
-WORD 4,B8IT6!BIT15 


3° 
;LOCAL TEXT MESSAGES FOR TEST 
ge 


T42NBA: .ASCIZ ‘NBA Not Set On Rejected WRITE CHARACTERISTICS’ 

T4NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 

T42REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re jected With Non-Zero Unused Fields’ 
T44REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Re ted With Invalid Block Address’ 
T4SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

T4INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 

T4TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 

TST4ID: .ASCIZ ‘Write Characteristics’ 


Festa: 


ITe 


FRT 


CHARACTERS trcs 


012701 


M11 
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3¢ 


‘ 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


T4REST: 
SAVREG 
MOV @T4PACKET,R1 
MOV #100004 ,(R1)+ 
MOV @T4DATA,C(R1)+ 
CLR CR1)> 
MOV 08. eCR1)e 
MOV OT4BFR,CR1)+ 
CLR CR1)+ 
MOV #16. ,CR1)+ 
CLR CR1L)>+ 
CLR CR1) 
RTS PC 
ENDTST 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK 
sADORESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;RETURN 


L10050: 
TRAP 


CsETsT 


SEQ 142 


‘é 


TKEA_TK25 FRT 
ST 5S: VOLUME 


Breck 


040000 
177776 


Nii 
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TSLOOP; 


S$: 


10$: 


-SBTTL TEST 5S: VOLUME CHECK 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE CONTROLLER AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 

CvC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 

WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 

TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 

TAPE MOTION COMMANDS. 


THE TEST PROCEEDS AS FOLLOWS: 
1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 


2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CvC=0) 
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED; 
THE VCK BIT SHOULD BE CLEAR (0). 


3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 


4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 


S. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=0 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD REMAIN CLEAR (0). 


BGNTST “ 

CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV OEPRT1,EPRTSW 3SET UP ERROR MESSAGE SWITCH 
CLR KTFLG sHOLO OFF KT11 

MOV TSTSID,RO sASCII MESSAGE TO IDENTIFY TEST 


JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
MOV #2. ,LOOPCNT sPERFORM 2 ITERATIONS 


MOV @TSPACKET ,R4 
MOV OTSBFR, 


sPACKET FOR WRITE CHARACTERISTICS 
Re BUFFER 
MOV #052525, xSTO(R2) 


sADDRESS OF THE MESSAGE 
iSET XSTATO TO KNOWN VALUE 


JSR PC, SOF INIT 300 SOFT INIT OF CONTROLLER 

BCS 10$ 38R IF SOFT INIT = OK 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERROF  ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
-WORD 501 


-WORD SFIERR 


-WORD SFIMSG 
;CLEAR THE CVC BIT 
;SET THE PACKET ADDRESS FOR WRITE CHAR 


BIC oBIT14,(R4) 
MOV R4, TSOBCRS) 


SEQ 143 


* $4 ae TK2S FRT 
st UME 


Ss: 


vou 


END FUNC 1 
CHECK 


031055 


031131 
011574 


104406 
032762 


017060 


158; 


000006 
052525 
000020 


000006 208: 


238: 


177776 
017060 


253%: 


278: 
000020 000006 303: 


Ble 
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PC .CHKTSSR 
15% 


RO,R1 
ERRNO, 'SSSR,PKTSSR 


TsT 


XSTOCR2),R3 

R3, 0052525 

203 

TSSRCRS),R1 

ERRNO, TSNMSG ,PKTSSR 


@xSOVCK , XSTOCR2 ) 
23% 


TSSRCRS),R1 
ERRNO, TSVCK2,PKTMES 


R4, TSOBCRS) 
PC,.CHKTSSR 
25% 


RO,R1 
ERRNO, TSSSR,PKTSSR 


TST 


xSTOCR2),R3 
27% 


TSSRC(RS),R1 
ERRNO, TSNVCK ,PKTMES 


. 


@XSOVCK , xSTOCR2) 


SEQ 144 

sWAIT FOR SSR TO SET 
sBR IF CARRY SET (GOOD RETURN) 
i SAVE CONTENTS OF TSSR 
sOEVICE FATAL SSR FAILED TO SET 

TRAP CSEROF 

° 502 

«WORD TSSSR 

° PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CscLP1 
sEXIT IF FATAL ERROR 

TRAP CSESCAPE 

L10054-. 


sSTORE STATUS FOR A WHILE 
sCHECK FOR XSTATO OVER WRITTEN (GOOD! ) 
sBR, IF XSTATO HAS BEEN UPDATED 

sPICK UP TSSR FOR ERROR PRINTOUT 

+"NO MESSAGE PACKET RETURNED” 


TRAP CSERHRD 
. 503 
-WORD TSNMSG 
-WORD PKTSSR 


sIS VOLUME CHECK CLEAR IN XSTO ? 
sOKAY IF VOLUME CHECK IS CLEARED 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 


TRAP CSERHRD 
-WORD 504 
-WORD TSvCK2 
-WORD PKTMES 
sLOOP ON ERROR ? 
CSsCLPi 


sSET THE PACKET ADDRESS FOR. WRITE CHAR 
sWAIT FOR SSR TO SET 

s8R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR RO oe 


CSEROF 

«WORD 505 

«WORD TSSSR 

-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CscLP1 
sEXIT IF FATAL ERROR 

TRAP grt om 


.WORD L10054- 
1 THE XSTO SHOULD NOT HAVE CHANGED 
sOKAY IF VOLUME CHECK IS SET 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 


TRAP CSERHMRD 

-WORD 506 

«WORD = TSNVCK 

-WORD PKTMES 
sLOOP ON ERROR ? 

TRAP CscLPL 


sIS VOLUME CHECK SET IN XSTO ? 


TESFE AS TGdLGRE ENEckYNC °? 


001006 
016501 


104456 
000773 
031055 
011574 


031131 
011574 


000000 


040000 
177776 
017060 


000020 


040000 
177776 
017060 


000020 


Cle 
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BNE 33% 

MOV TSSRCRS),R 

ERRHRD ERRNO, TeyeK2, PKTMES 
338; CKLOOP 

BIS OBIT14,(R4) 

MOV R4,TSOBCRS) 

JSR PC,CHKTSSR 

6cs 358% 

MOV RO,R1 

ERRDOF ERRNO, TSSSR,PKTSSR 
358: CKLOOP 

ESCAPE TST 

000006 BIT @xSOVCK ,XSTOC(R2) 

BEQ 403 

MOV TSSRC(RS),R1 

ERRHRD ERRNO, TSVCK .PKTMES 
40$: CKLOOP 

BIC @BIT14,(R4) 

MOV R4,TSOBCRS) 

JSR PC,CHKTSSR 

6cS 453 

MOV RO,R1 

ERROF ERRNO, TSSSR,PKTSSR 
453: CKLOOP 

ESCAPE TST 

000006 BIT @xSOVCK , xSTOCR2) 

BEQ 508% 

MOV TSSR(RS),R1 

ERRHRD ERRNO, TSNVCK PK TIMES 


SEQ 145 


sOKAY IF VOLUME CHECK IS SET 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT SET 
TRAP CSERHRD 
«WORD 507 
«WORD TSVCK2 
«WORD PKTMES 
sLOOP ON ERROR ? 
TRAP CsCLP1 


:SET THE CVC BIT 
1SET THE PACKET ADORESS FOR WRITE CHAR 
;WAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

1DEVICE FATAL SSR FAILED TO SET 


CSEROF 
«WORD 508 
«WORD TSSSR 
-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CscLPi 


sEXIT IF FATAL ERROR 
TRAP CSESCAPE 


. WORD L10054-. 
3IS VOLUME CHECK CLEAR IN “STO ? 
sOKAY IF VOLUME CHECK IS CLEARED 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT CLEARED 


TRAP CSERHRD 

-WORD 509 

«WORD TSVCK 

«WORD PKTMES 
sLOOP ON ERROR ? 

TRAP CsCLP1 


sCLEAR THE CVC BIT 
sSET THE PACKET ADDRESS FOR WRITE CHAR 
sWAIT FOR SSR TO SET 
sBR IF CARRY SET ‘ome RETURN) 
sSAVE CONTENTS OF TS 
sDEVICE FATAL SSR FAILED TO set 


CSEROF 

-WORD 510 

«WORD TSSSR 

.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 
sEXIT IF FATAL ERROR 

TRAP CSESCAPE 


-WORD  L10054- 
sIS VOLUME CHECK CLEAR IN XSTO ? 
sOKAY IF VOLUME CHECK IS CLEARED 
sCONTENTS OF TSSR FOR ERROR REPORT 
sVOLUME CHECK NOT CLEARED 


TRAP CSERHRD 
.WORD 511 

. WORD TSNVCK 

. WORD PK TMES 


GESEEAS GG GRE ENR CKUNS #2 


030762 
031055 
031131 
031221 
031310 
031407 


031424 
031424 
031424 


104406 
004737 
103002 
000137 


104432 
000512 


017200 
030252 


Die 
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5O$: CKLOOP 

60%: JSR 
8CC 
JMP 

628: EXIT 


PC, TSTLOOP 
62$ 

TSLOOP 

TsT 


3° 
s;LOCAL STORAGE FOR THIS TEST 


-BLK 
TSPACKET: 
TSDATA: 


TSBFR: 


10-<, - TUV2AE7> 


100004 
TSOATA 


10 


hd 
sLOCAL TEXT MESSAGES FOR TEST 


TSVCK: . 
TSVCKe: . 


TSNMSG: 
TSTSID: 


SEQ 146 


sLOOP ON ERROR ? 
TRAP CSsCLP1 


R 
sSHOULD WE DO ITERATIONS ? 
sBRANCH IF NOT 
sLOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST onep 


. WORD 


CsExIt 
L10054-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF COUNTER 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


‘VCK Bit NOT Cleared After WRITE CHARACTERISTICS With CvC-1’ 
*VCK Bit NOT Set After INITIALIZE With CvC=0' 

‘VCK Bit Modified After WRITE CHARACTERISTICS With CvC=0' 
‘Contents of TSSR Incorrect After Write Characteristics’ 

‘No Message Packet Returned To Host After WRITE CHARACTERISTICS’ 


‘Volume Check’ 


L10054: 


TRAP CsETsT 


CZTKEA TK25 FRT END FUNC @1 
TEST 6: COMPLETION INTERRUPT 


5203 
5204 


031426 
031426 
031426 
031432 
031440 
031444 
031450 
031454 
031462 
031462 
031462 
051462 


031464 
031470 
031470 
031474 
031476 
031502 
031506 
031514 
031514 
031514 


031516 


002170 
005672 


017232 
00000 


016470 


002170 
002172 
177776 
017060 


Ele 
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-SBTTL TEST 6: COMPLETION INTERRUPT 


GENERATED. 


IE BIT IN xSTO IS O. 


BGNTST 

CLR FATFLG 
002146 MOV EPRT1,EPRTSW 

CLR KTFLG 

MOV @TST6ID,RO 

JSR PC, TSTSETUP 
002164 MOV 2. ,LOOPCNT 

T6LOOP: 
BGNSUB 
JSR PC, T6REST 

SETPRI @PRIOO 

MOV @TSTBLK+10. ,R3 

MOV @T6EPACKET ,R4 
000006 . MOV 08. ,PKBCNT(R4 ) 

$;: 

BGNSEG 

JSR PC, SOF INIT 

BcSs 10$ 

MOV RO,R1 

ERROF ERRNO, SF IERR, SF IMSG 

10$: CLR FATFLG 

CLR INTRECV 

MOV R4,TSOBCRS) 

JSR PC ,CHKTSSR 

bcs 15% 

MOV RO,R1 


HEADER WORD IS SET. 


FIRST WITH IE*1 AND THE 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND ANDO THAT THE 


THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND 

CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 


THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMANDO IS ISSUED WITH THE IE BIT SET (1). IT 
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
FINALLY, A SEQUENCE OF TWO COMMANDOS ARE ISSUED, THE 
SECOND WITH IE*0O. 


THIS TEST 


IT IS VERIFIED THAT 


T6:: 
;CLEAR FATAL ERROR FLAG 
3;SET UP ERROR MESSAGE SWITCH 


sHOLD OFF KT11 


sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 
34/////////// BEGIN SUBTEST S///////// 
T6.1: 
TRAP Cs6SUB 


3SET PACKET TO INITIAL VALUES 
;LOWER PRIORITY TO ALLOW INTERRUPTS 


MOV oPRIOO, 


TRAP CsSPRI 
sSTART OF TEST DATA 
sGET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT »>>>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

3BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


TRAP CSERDF 
-WORD 601 

«WORD SFIERR 
-WORD  SFIMSG 


sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
+SAVE CONTENTS OF TSSR 


SEQ 147 


4/ 


RO 


>> 


CZTKEA TK25 FRT END FUNC @1 
TEST 6: COMPLETION INTERRUPT 


5260 


031674 


031700 
031700 
031700 


031702 
031706 
031710 
031714 


017724 


002172 


000006 
003030 
031514 


002170 
017776 


File 
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15$: 


22s: 


258: 


30$: 


558: 


708: 


ERRDOF 


JSR 
CKLOOP 


ESCAPE 


TsT 
BNE 
ERRHRD 


ERRNO, T6SSR,PKTSSR 


PC .FATCHK 
SEG 


INTRECV 
22% 
ERRNO, T6NINT ,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 


R2,R1 
30% 
ERRNO, T6NBA,PKTSSR 


CR3)+,PKBCNT(R4) 
R3,@TBLEND 

55$ 

S$ 


FATFLG 
70% 
PC,CKDROP 


SEQ 148 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 602 
«WORD T6SSR 


. WORD 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
3BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
a 10000$-. 
:0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
-WORD 603 
«WORD T6NINT 
-WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
;SET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 604 
. WORD T6NBA 
. WORD PKTSSR 
g<ececeeccecce END SEGMENT <eeeeeeeeecee$e 
10000$: 
TRAP CSESEG 


;SET THE TEST WORD 

sHAS ALL DATA BEEN TESTED ? 
sBRANCH IF ALL DATA DONE 
sBRANCH TILL BACK TO ZERO 


Z\NNANANNANNNAN END SUBTEST \ANANNNNNANNA 
* TRAP CseSuB 
sANY FATAL ERRORS ? 


sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


CZTKEA TK25 FRT END FUNC 01 
TEST 6: COMPLETION INTERRUPT 


5341 


031714 
031714 
031714 


031716 
031716 
031722 
031724 
031730 
031734 


031740 
031740 


031742 
031746 
031750 
031752 
031752 
031754 
031756 
031760 
031762 
031766 
031770 
031772 
031776 


000000 


032372 
032330 
033426 


016470 


002172 


000002 
177776 
016744 


002172 


Gle 
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s¢ 
é 

sTEST 6, SUBTEST 2 

3 

sCHECK THAT UNUSED BITS BEING SET CAUSES 


SEQ 149 


sWRITE CHARACTERISTICS COMMAND TO BE REJECTED 


BGNSUB 


SETPRI oPRIOO 


MOV @T62QDATA,RS 

S$; MOV @T6PACKET ,R4 
JSR PC, T6REST 
BGNSEG 


JSR PC, SOF INIT 
10% 


BCS 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
10$; CLR INTRECV 

MOV R4,RO 


ADD C(R3),RO 
BIS 2(R3),CRO) 
MOV R4, TSOBCRS) 


JSR PC, ,WAITF 
BCS 15% 
MOV 


RO,R1 
ERRNO, T6SSR ,PKTSSR 


15$: CKLOOP 
ESCAPE SEG 


TST INTRECV 
BNE 22% 
ERRHRD ERRNO, T6ENINT,PKTSSR 


228; MOV TSSRC(RS5S),R1 


TW AAAAAAAALALA = SUBTEST S/SS/S/////4//47/ 
a 


TRAP CsBSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRIOO,RO 

TRAP C$SPRI 


sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


3:00 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR soem aaate 


.~WORD 

. WORD 

. WORD 
sCLEAR INTERRUPT RECEIVED FLAG 
sSTART OF THE COMMAND PACKET 
s;OFFSET TO THE DATA WORD TO TEST 
;SET THE DATA BITS TO BE TESTED 
;SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
3BR IF CARRY SET (GOOD RETURN) 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR rae 


CSEROF 
-WORD 606 
. WORD T6SSR 
.WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP CSsCLP1 
:BY-PASS CHECKS IF FATAL ERROR 
TRAP CSESCAPE 
10000$-. 
;D0ID AN INTERRUPT OCCUR ? 
:BRANCH IF YES 
TRAP CSERHRD 
-WORD 607 
. WORD T6NINT 
ORD PKTSSR 


oW 
;GET THE CONTENTS OF TSSR 


H1le2 
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5342 032052 012702 102206 MOV @SC!SSR! TSREJ!NBA,R2 sEXPECTED CONTENTS OF TSSR 

5343 032056 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 

5344 032062 001402 BEQ 253 sBRANCH IF NOT OFF-LINE 

5345 032064 052702 000100 BIS #OFL ,R2 ;SET OFF-LINE IN EXPECTED DATA 

5346 032070 020201 25%: CMP R2,R1 ;D0ES EXPECTED MATCH RECEIVED ? 

5347 032072 001404 BEQ 30$ ;OKAY IF MATCH 

5351 032074 ERRHRD ERRNO, T62REJ,PKTSSR sCOMMAND NOT REJECTED 
032074 104456 TRAP CSERHRD 
032076 001140 . WORD 608 
032100 032461 . WORD T62REJ 
032102 011520 . WORD PKTSSR 

5352 032104 30$: 

5353 032104 ENDSEG 3<<ecececeecece END SEGMENT <ceeeeeeeeece 
032104 10000$: 

— 032104 104405 TRAP CSESEG 

5355 032106 062703 000004 ADD 04,R3 sPOINT TO NEXT DATA PAIR 

5356 032112 020327 032406 CMP R3,@T62D0NE ;COMPARE TO END OF TEST DATA 

5357 032116 103002 : BHIS 598 ;BRANCH IF ALL DATA TESTED 

tied 032120 000137 031730 JMP 5$ ;BRANCH TILL BACK TO ZERO 

5360 032124 59$: ENDSUB s\NNANNNNNNANN END SUBTEST NANANNNANAANA 
032124 10057: 


032124 104403 TRAP CSESUB 


= Sh TK25 FRT END FUNC #1 
6: COMPLETION INTERRUPT 


032272 


052702 


000000 
032372 


032330 
033426 


016470 


002172 
000001 
177776 
016744 


002172 


000000 
102206 
000100 


000100 


Iie 
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032340 


3¢ 
3 
sTEST 6, SUBTEST 3 


SEQ 151 


3 
;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 


BGNSUB 


SETPRI #PRIOO 


MOV @T62DATA,RS 
S$: MOV @T6PACKET ,R4 

JSR PC, T6REST 

JSR PC,SOF INIT 

BCS 10$ 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
10$: CLR INTRECV 

BIS #1, T6DATA 

MOV R4, TSDBCRS) 

JSR PC ,WAITF 

BcS 158 

MOV RO,R1 

ERROF ERRNO, T6SSR,PKTSSR 
158: CKLOOP 

ESCAPE SUB 

TST INTRECV 

BNE 22% 

ERRHRD ERRNO, T6NINT,PKTSSR 
228: MOV TSSRCRS),R1 

MOV @SC!SSR! TSREJ!NBA,R2 

BIT OOFL ,R1 

BEQ 253% 

BIS OOFL ,R2 


3//////////// BEGIN SUBTEST ///////////7/ 
76.3: 


TRAP C$B8SUB 
;LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV @PRIOO,RO 

TRAP C$SPRI 


sSTART OF TEST DATA FOR SUBTEST 
sGET THE ADORESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


300 SOFT INIT OF CONTROLLER 
36R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR cae tah 


CSERDF 

«WORD 609 
«WORD SFIERR 
-WORD  SFIMSG 

sCLEAR INTERRUPT RECEIVED FLAG 

sMAKE ADDRESS ODD 

sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 610 
-WORD T6SSR 
.WORD PKTSSR 

;LOOP ON ERROR, IF FLAG SET 
TRAP CscCLPl 


;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
WORD 


i L10060-. 
;0IO AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


TRAP CSERHRD 

-WORD 611 

. WORD TO6NINT 
WORD PKTSSR 


;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

s;BRANCH IF NOT OFF -LINE 

3SET OFF LINE IN EXPECTED DATA 


CZTKEA TK25 FRT END FUNC 01 
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5409 
5410 
5414 


032276 
32300 


032312 


032312 
032312 
032312 


020201 
001404 


104456 
001144 
032653 
011520 


104403 


J1l2 
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258%: 


30$: 


CMP R2,R1 
BEQ 30$ 
ERRHRD ERRNO, T64REJ,PKTSSR 


ENDSUB 


SEQ 152 
;D0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sCOMMAND NOT REJECTED 
AP CSERHRD 
-WORD 612 


sN\NNNNANNANANN END SUBTEST \\ANANNANANNNS 
L10060: 
TRAP CsesuB 


CZTKEA TK25 FRT END FUNC 1 
TEST 6: COMPLETION INTERRUPT 


5420 
$421 


032314 
032314 
032316 


032352 


032372 
032372 
032376 
032402 


104432 
001162 


100204 
032340 
000000 


000010 


032352 
000000 
000016 
000000 


032406 


036140 
000001 
100100 


K12 


MACRO M1200 20-APR-84 08:12 PAGE 103 


EXIT 


TST 


7¢ 
sLOCAL STORAGE FOR THIS TEST 


-BLKB 
T6PACKET: 


T6DATA: 


T6BFR: .BLKW 


3¢ 


10-<, -TUV2AE7> 


100204 
T6DATA 


‘ 

;TEST DATA FOR SUBTEST TWO 
GQ 

sDATA HAS FOF MAT: 

Hy 


3 

° 

‘ 
T62DATA: 5 
. WORD 
‘ D 
T62D0NE =. 


1ST WORD 
2ND WORD 


ALL DONE THIS TEST 


TRAP CSExIT 


SEQ 153 


«WORD L10055-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHAR COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


OFFSET TO TEST WORD IN PACKET 
BITS TO SET FOR TEST 


gee ee IRS TOIL ER EST ERINE TES 


BIT 
4,BIT6!BIT15 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


T6NBA: .ASCIZ 
T62REJ: .ASCIZ 
T63REJ: .ASCIZ 
T64REJ: .ASCIZ 
T6SREJ: .ASCIZ 
T6SSR: .ASCIZ 
T6NINT: .ASCIZ 
T6INT: .ASCIZ 
T6TSBA: .ASCIZ 
TST6IC: .ASCIZ 

EVEN 


e 


‘WRITE CHARACTERISTICS Command Not Accepted’ 
‘WRITE CHARACTERISTICS Not Re jected With Non-Zero Unused Fields’ 


‘WRITE CHARACTERISTICS Not Rejected With Invalid Data Count’ 


‘WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’ 
‘WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length’ 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 


‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 


‘Completion Interrupt’ 


sry“. ™ 5 FRI 


OMPLE 


F ® 
1fON INT RRUPT 


012701 


032330 


000010 
032352 


000016 


032352 


Lie 
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3¢ 


3 
s;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


T6REST: 
SAVREG 
MOV @T6PACKET ,R1 
MOV #100204 ,(R1)-+ 
MOV @TEDATA,(R1)+ 


CLR (R1)+ 

MOV 08. ,(R1)+ 
MOV @T6BFR,(R1)+ 
CLR CR1)+ 

MOV 014, ,(R1)+ 
CLR (R1)> 

CLR (R1) 

CLR T6BFR 

RTS PC 

ENDTST 


s;SAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
3;RETURN 


L10055: 
TRAP 


CseTstT 


SEQ 154 


CZTKEA TK25 FRT END FUNC @1 
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016470 


002170 
002172 
177776 
017060 


Mie 
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002146 


002164 


-SBTTL TEST 7: BASIC PACKET PROTOCOL 


THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK GIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


+ 
sTEST 7, SUBTEST 1 


3 

;CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
;PROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 

sIF THE “IE” BIT IS SET IN THE COMMAND PACKET 

3 

ge 


BGNTST 7 
CLR FATFLG ;CLEAR FATAL ERROR FLAG 
MOV #EPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 
CLR KTFLG sHOLD OFF KT11 
MOV @#TST7ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV #2, ,LOOPCNT sPERFORM 2 ITERATIONS 
T7LOOP: 
BGNSUB TAAL — SUBTEST ////S//////47 
mT 
TRAP CsBSUB 
JSR PC, T7RST 3SET PACKET TO INITIAL VALUES 
SETPRI #PRIOO ;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP C$SPRI 
MOV @T7PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
5 MOV 08. ,PKBCNT(R4 ) ;START WITH MINIMUM ALLOWABLE VALUE 
$: 
BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 
JSR PC,SOF INIT 300 SOFT INIT OF CONTROLLER 
BCS 10$ ;BR IF SOFT INIT = OK 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL ERROR DURING INIT 
: TRAP CSERDF 
. WORD 701 
WORD SFIERR 
. WORD SF IMSG 
10$: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
MOV R4,TSOBCRS) ;SET THE PACKET ADDRESS 
JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
BCS 15$ 3BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERROF ERRNO, T7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 702 


. WORD T7SSR 


CZTKEA TK25 FRT END FUNC #1 
TEST 7: BASIC 


5555 
5556 


$557 
5558 


5559 
5563 


PACKET PROTOCOL 


012702 


017724 


002172 


017724 


002172 


000000 
000200 
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035662 


158: 


228: 


25%: 


45%: 


52s; 


JSR 
CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


ENDSEG 


BGNSEG 


Nie 
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PC ,FATCHK 


SEG 


INTRECV 


22% 
ERRNO, T7NINT,PKTSSR 


ho 


30$ 
ERRNO, T7SSR,PKTSSR 


INTRECV 
#025252, T7BFR 
#100212,(R4) 


PC,CHKTSSR 
45$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC .FATCHK 


INTRECV 
Ses 
ERRNO, T7INT,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 


SEQ 156 


.WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$-. 
;DID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
TRAP CSERHRD 
. WORD 703 
- WORD T7NINT 
-WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
3;00ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
. WORD 704 
.- WORD T7SSR 
-WORD PKTSSR 
3<<<eeeeeee<eece END SEGMENT <cceeeeeeeeeee 
10000$: 
TRAP CSESEG 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


;CLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 

3SET COMMAND PACKET TO MESS BUF REL 
;SET THe PACKET ADDRESS 

sWAIT FOR SSR TO SET 

38R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR PARAS NS 


. WORD 

-WORD T7SSR 

.WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET 


CSEROF 
705 


TRAP CSCLP1 
;DID AN INTERRUPT OCCUR ? 
;BRANCH IF NO 
TRAP CSERHRD 
.WORD 706 
.WORD  T7INT 
WORD PKTSSR 


;GET THE CONTENTS OF TSSR 
;EXPECTED CONTENTS OF TSSR 


CZTKEA TK2S FRT_END FUNC @1 
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035744 
016170 


005737 
0014035 
004737 


104405 


104403 


000100 
000100 


035662 
025252 


002170 
017776 


B13 
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558: 


608: 


708: 


808: 


70% 
ERRNO, T7MBF ,EXPREC 


FATFLG 
80% 
PC ,.CKDROP 


SEQ 157 

sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
sD00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
s"TSSR INCORRECT AFTER WRT CHARA.” 

TRAP CSERHRD 

. WORD 707 

.WORD T7SSR 


-WORD PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
sSET UP EXPECTED DATA 


sBR, IF OK CEQUAL 
sMESSAGE BUFFER WAS MODIFIED 
TRAP — 


- WORD 
-WORD T7MBF 
«WORD EXPREC 


sANY FATAL ERRORS 
38R, IF NO FATAL ERRORS 
sTRY TO OROP THE UNIT 
peeeeeeccccecece END SEGMENT <eeeeceeeeecc 
100018: 
TRAP CSESEG 


s///44//41//7 END SUBTEST S/SA//A/4/747/7/ 
L10062: 
TRAP CsESUB 


ok 
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5672 


011520 
016501 


016470 


017724 


002172 


035656 


3° 
sTEST 7, SUBTEST 2 


SEQ 158 


5 

sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
sPROPERLY AND THAT THERE IS AN INTERRUPT IF THE “IE” 
sBIT IS SET IN THE COMMAND PACKET AND THE “ERI” BIT 
sIS SET IN THE CHARACTERISTICS DATA PACKET 


BGNSUB 
JSR PC, T7RST 
SETPRI ePRIOO 
MOV @T7PACKET ,R4 
me MOV 08. ,PKBCNT(R4) 
: BGNSEG 
JSR PC ,SOF INIT 
Bcs 10$ 
MOV RO,R1 
ERROF ERRNO,SFIERR,SFIMSG 
108: CLR FATFLG 
CLR INTRECV 
MOV @000020, T7DATA+6 
MOV R4, TSDBCRS) 
JSR PC*CHKTSSR 
BCS 15$ 
MOV RO,R1 
ERRDF ERRNO,T7SSR,PKTSSR 
JSR PC, FATCHK 
15$: | CKLOOP 
ESCAPE SEG 
tsT INTRECV 
BNE 228 
ERRHRD ERRNO, T?NINT,PKTSSR 
22%: MOV TSSR(RS),R1 


34////7//17//// BEGIN SUBTEST S//////////7/ 
T7.2: 
TRAP Cs6SUB 


sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
T Cs$SPRI 
sGET THE ADORESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


300 SOFT INIT OF CONTROLLER 

368R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR wns Opa 


CsERDF 
-WORD 709 
-WORD SFIERR 

SF IMSG 


sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 
;SET ERI IN CHARACTERISTICS DATA 
3SET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 
+SAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR eset + Fal 


CSEROF 
-WORD 710 
-WORD T7SSR 


. WORD 
sINC AND CHECK FOR MORE THAN 25 ERRORS 


sLOOP ON ERROR, IF FLAG SET 
TRAP CsCcLP1 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$ -. 
3010 AN INTERRUPT OCCUR ? 
sBRANCH IF YES 
TRAP CSERHRD 
-WORD 711 
. WORD T7NINT 
WORD PKTSSR 


:GET THE CONTENTS OF TSSR 


D13 
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5673 034270 012702 000200 MOV @SSR ,R2 sEXPECTED CONTENTS OF TSSR 

5674 034274 032701 000100 BIT OOFL ,.R1 sIS OFF-LINE BIT SET ? 

5675 034300 001402 BEQ 25% sBRANCH IF NOT OFF-LINE 

5676 034302 052702 000100 BIS OOFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

5677 034306 020201 258: CMP R2,R1 s00ES EXPECTED MATCH RECEIVED ? 

5678 034310 001404 BEQ 308 ;OKAY IF MATCH 

5682 034312 ERRHRD ERRNO,T7SSR,PKTSSR sNBA NOT ZERO 
034312 104456 TRAP CSERHRD 
034314 001310 . WORD 712 
034316 036270 » WORD T7SSR 
034320 011520 WORD PKTSSR 

5683 034322 308; 

5684 034322 ENDSEG g<eceececececece: END SEGMENT <ceceececeece 
034322 100003: 
034322 104405 TRAP CSESEG 

5685 034324 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>> >>>>>>>>> 
034324 104404 TRAP CSBSEG 

5687 034326 005037 002172 CLR INTRECV ;CLEAR INTERRUPT RECEIVED FLAG 

5688 034332 012737 025252 035662 MOV #025252, T7BFR sWIPE OUT MESSAGE BUFFER AREA 

5689 034340 012714 100212 MOV #100212, (R4) 3SET COMMAND PACKET TO MESS BUF REL 

5690 034344 010465 177776 MOV R4,TSOBCRS) sSET THE PACKET ADDRESS 

5691 034350 004737 017060 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

5692 034354 103407 bcs 45% 38R IF CARRY SET (GOOD RETURN) 

5693 034356 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5697 034360 ERROF ERRNO, T7SSR,°KTSSR sDEVICE FATAL SSR FAILED TO SET 
034360 104455 TRAP CSERDF 
034362 001311 . WORD 713 
034364 036270 -WORD T7SSR 
034366 011529 . WORD PKTSSR 

5698 034370 004737 017724 JSR PC ,FATCHK sINC ANO CHECK FOR MORE THAN 25 ERRORS 

5699 034374 4538: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
034374 104406 TRAP CSCLP1 

S700 034376 005737 002172 Tst INTRECV ;0ID AN INTERRUPT OCCUR ? 

S701 034402 001004 BNE 5238 ;BRANCH IF YES 

5705 034404 ERRHRD ERRNO, T7INT,PKTSSR 
034404 104456 TRAP CSERHRD 
034406 001312 . WORD 714 
034410 036450 . WORD T7INT 
034412 011520 . WORD PKTSSR 

5706 034414 016501 000000 528: MOV TSSRCRS),R1 3GET THE CONTENTS OF TSSR 

5707 034420 012702 000200 MOV @SSR,R2 sEXPECTED CONTENTS OF TSSR 

5708 034424 032701 000100 BIT OOFL ,R1 sIS OFF-LINE BIT SET ? 

5709 034430 001402 BEQ 55% sBRANCH IF NOT OFF-LINE 

5710 034432 052702 000100 BIS OOFL ,R2 :SET OFF-LINE IN EXPECTED DATA 

5711 034436 020201 55%: CMP R2,R1 sD0ES EXPECTED MATCH RECEIVED ? 

5712 034440 001404 BEQ 60$ z;0KAY IF MATCH 

5716 034442 ERRHRD ERRNO,T7SSR,PKTSSR sNBA NOT SET 
034442 104456 TRAP CSERMRD 
034444 001313 WORD 715 
034446 036270 . WORD T7SSR 
034450 011520 . WORD PKTSSR 

5717 034452 60%: 

5718 034452 013701 035662 MOV T7BFR,R1 sPICK UP THE 1ST WORD OF MESSAGE BUFFER 

5719 034456 012702 025252 MOV 0025252 ,R2 3SET UP EXPECTED DATA 

5720 034462 020102 CMP R1,R2 3WAS ANY MESSAGE REC'D 


5721 034464 001404 BEQ 70% 3BR, IF OK CEQUAL ) 


Test oT Basie 


5725 


Ic P 


034466 
034466 
034470 
034472 
034474 


034476 
034476 
034502 
034504 
034510 
034510 
034510 
034510 
034512 
034512 
034512 
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CK 


016170 


005737 
001402 
004737 


104405 


104403 


002170 
017776 


70$: 


80$: 


ERRHRD ERRNO, T7MBF ,EXPREC 


FATFLG 
80$ 
PC ,.CKOROP 


E15 


sMESSAGE BUFFER WAS MODIFIED 
TRAP 


. WORD 
. WORD 
. WORD 


sANY FATAL ERRORS 
sBR, IF NO FATAL ERRORS 
sTRY TO OROP THE UNIT 


SEQ 160 


CSERHRD 
716 
T7MBF 
EXPREC 


3<<eeeeeeececee: END SEGMENT <ceceeeeeecece 


100018: 
TRAP 


CSESEG 


s4//////11//7 END SUBTEST S/S/A/SAASS///7/ 


L10063: 
TRAP 


CsESUB 


GZ TKeA TKOS F 


7: 


BASI 


032701 


016470 


002170 
002172 
177776 
017060 


017724 


002172 


000000 
000200 
000100 


F13 
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3¢ 
sTEST 7, SUBTEST 3 


a 
sCHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 
s;AFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 


sWORK CORRECTLY 


5$: 


108%: 


158: 


228: 


BGNSUB 


JSR 
SETPRI 


JSR 
CKLOOP 


ESCAPE 


TsT 
BNE 
ERRHRD 


MOV 
MOV 
BIT 


PC,T7RST 
oPRIOO 


@T7PACKET ,R4 
08. ,PKBCNTCR4 ) 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SF TERR, SF IMSG 


FATFLG 
INTRECV 

R4, TSOBCRS) 
PC,CHKTSSR 
15% 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC .FATCHK 
SEG 


INTRECV 
22s 
ERRNO, T7NINT,PKTSSR 


TSSRCRS),R1 
oSSR,R2 
OOFL ,R1 


SEQ 161 


37///1/////// BEGIN SUBTEST //////////7/7/ 
77.3: 
TRAP Cs68SUB 


sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP C$SPRI 
s;GET THE ADDRESS OF COMMAND PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


300 SOFT INIT OF CONTROLLER 

3BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


TRAP CSEROF 
«WORD 717 
-WORD SFIERR 
-WORD SFIMSG 

sCLEAR FATAL ERROR FLAG 

sCLEAR INTERRUPT RECEIVED FLAG 

;SET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
«WORD 718 
-WORD T7SSR 


. WORD 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET oun 


TRAP 
3B8Y-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 
. 10000$-. 
;0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


TRAP CSERHRD 


-WORD 719 
«WORD T7NINT 
-WORD PKTSSR 

;GET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 


TET Baste 


5781 
5782 
5783 
5784 
5788 


Ic P 
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001402 
052702 
020201 
001404 


104456 
001320 
036270 
011520 


011520 


013701 
012702 
020102 
001404 


104456 


000100 


036566 
002172 
025252 
100212 
177776 
017060 


017724 


002172 


035662 
025252 


035662 


25%: 


308: 


45$: 


52s: 


555: 


60$: 


G13 
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8 
ERRNO, T7SSR,PKTSSR 


PC, T7RST 
INTRECV 
025252, T7BFR 
#100212,(R4) 
R4, TSOBCRS) 
PC,CHKTSSR 
45$ 


RO,R1 
ERRNO, T7SSRM,PKTSSR 


PC ,.FATCHK 


INTRECV 
Ses 
ERRNO, T7INT,PKTSSR 


TSSRC(RS),R1 
@SSR ,R2 


R2,R1 
60$ 
ERRNO, T7SSR,PKTSSR 


T7BFR,R1 
#025252 ,,R2 
R1,R2 


70% 
ERRNO, T7MBF ,EXPREC 


SEQ 162 


sBRANCH IF NOT OFF -LINE 
:SET OFF-LINE IN EXPECTED DATA 
;DOES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
» WORD 720 
. WORD T7SSR 
.WORD PKTSSR 
3<<eeeeececcecece END SEGMENT <ceeeeeeeeece 
10000$: 
TRAP CSESEG 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 

sRESET PACKETS AND COMMANDOS 

;CLEAR INTERRUPT RECEIVED FLAG 

sWIPE OUT MESSAGE BUFFER AREA 

3SET COMMAND PACKET TO MESS BUF REL 

;SET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

;68R IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
WORD 


° 721 
. WORD 


T7SSRM 
-WORD PKTSSR 
;INC ANDO CHECK FOR MORE THAN 25 ERRORS 


;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 

;DID AN INTERRUPT OCCUR ? 

;BRANCH IF NO 
TRAP CSERHRD 
«WORD 722 
-WORD T7INT 
-WORD PKTSSR 

3GET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF -LINE 

;SET OFF-LINE IN EXPECTED DATA 

sD0ES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sNBA NOT SET 
TRAP CSERHRD 
-WORD 723 
-WORD T7SSR 
-WORD PKTSSR 


sPICK UP THE 1ST WORD OF MESSAGE BUFFER 
;SET UP EXPECTED DATA 

sWAS ANY MESSAGE REC'D 

;BR, IF OK CEQUAL) 

sMESSAGE BUFFER WAS MODIFIED 


TRAP CSERHRD 


TKEA_TK25 FRT 
egy 7: 


ASIC 


035232 


035236 
035236 
035240 
035244 


PACKET ofdcou 


001324 
035744 
016170 


011520 


104405 
005737 
001403 
004737 


104404 
005037 
004737 


017724 


002172 


000000 
000200 
000100 
000100 


002170 
017776 


002172 
036566 


H13 
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70$: 


75$: 


85$: 


95%: 


CK'_OOP 


JSR 
CKLOOP 


ESCAPE 


BGNSEG 


CLR 
JSR 


INTRECV 


PC,CHKTSSR 
75$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC ,FATCHK 

SEG 

INTRECV 

82$ 

TSSRCRS),RO 

ERRNO, T7NINT,PKTSSR 


TSSRC(RS),R1 
@SSR,R2 


90$ 
ERRNO, T7SSR,PKTSSR 


FATFLG 
95$ 
PC ,CKDROP 


INTRECV 
PC, T7RST 


SEQ 163 
. WORD 724 
WORD T7MBF 
. WORD EXPREC 
sLOOP ON ERROR IF FLAG SET 
TRAP CSCLP1 
sCLEAR INTERRUPT RECEIVED FLAG 
sRESET THE PACKETS AND COMMANDS 
sCLEAR THE ACK BIT 
;SET THE PACKET ADDRESS 
sWAIT FOR SSR TO SET 
3B8R IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
sOEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 725 
. WORD T7SSR 
. WORD PKTSSR 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
3B8Y-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
< 10001$-. 
;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
;GET TSSR FOR ERROR REPORT 
TRAP CSERHRD 
. WORD 726 
. WORD T7NINT 
-WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
3SET OFF-LINE IN EXPECTED DATA 
sD0ES EXPECTED MATCH RECEIVED ? 
;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
. WORD 727 
. WORD T7SSR 
. WORD PKTSSR 
p< eeceeceecceece END SEGMENT <cceceeeeeceeecc 
10001$: 
TRAP CSESEG 


sANY FATAL ERRORS 
:BR, IF NO FATAL ERRORS 
sTRY TO OROP THE UNIT 


3<eeceeceececece: BGN SEGMENT <ccceeeeececcece 
TRAP CSBSEG 

;CLEAR INTERRUPT RECEIVED FLAG 

sRESET THE PACKETS AND COMMANDS 


CZTKEA_TK25 FRT END FUNC @1 
PACKET PROTOCOL 


TEST ?: 


BASIC 


010465 


177776 
017060 


017724 


002172 


000000 
000200 
000100 


000100 


002170 
017776 


I13 
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100$: 


112$: 


1258: 


1308: 


1408; 


308: 


R4, TSOBCRS) 
PC,CHKTSSR 
100$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


PC ,FATCHK 

SEG 

INTRECV 

112% 

TSSRCRS),.RO 

ERRNO, T7NINT,PKTSSR 


TSSRCRS),R1 


130% 
ERRNO, T7SSR,PKTSSR 


FATFLG 
140$ 
PC ,CKDROP 


SEQ 164 


sSET THE PACKET Ce 

sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sOEVICE FATAL SSR steers + aie 


. WORD 
. WORD 


. WORD 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP CsCLP1 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
10002$-. 
;D0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 
;GET TSSR FOR ERROR REPORT 
TRAP CSERHRD 
. WORD 729 
. WORD T7NINT 
. WORD PKTSSR 
;GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
;SET OFF-LINE IN EXPECTED DATA 
;00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
.- WORD 730 
. WORD T7SSR 
.- WORD PKTSSR 
3<eecceeececeee END SEGMENT <ceceeeeeccce 
10002$: 
TRAP CSESEG 


;CHECK FATAL FLAG FOR SET 
;BR, IF NOT SET (OK) 
;DROP DEVICE IF INDICATED 


s474/////7//7 END SUBTEST SASS //A/4///// 


L10064: 
TRAP CsESUB 


ere, Mer FRT END 


FUNC #1 


BASIC PACKET PROTOCOL 


5913 
5914 


104402 


004737 
004737 


012700 
104441 
012704 
012703 
012764 
012763 


036640 
036566 


000000 
035040 


002170 
002172 
177776 
177776 
016744 
000000 


000200 


917724 


002172 
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000006 


3¢ 
sTEST 7, SUBTEST 4 


; 

;CHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 
;THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND 
;BEING EXECUTED AND ANOTHER “WC” COMMAND IS ATTEMPTED 

; 


5$: 


10$: 


15$: 


BGNSUB 


JSR 
CKLOOP 


ESCAPE 


TST 
BNE 


ERRHRD 


PC,T7RT2 
PC,T7RST 
oPRIOO 


@T7PACKET ,R4 
@T7PKT ,R3 

#8. ,PKBCNT(R4) 
08. ,PKBCNTCR3) 


PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SFIERR , SF IMSG 


FATFLG 
INTRECV 

R4, TSDBCRS) 
R3,TSOBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR,R1 


15$ 
ERRNO, T7SSR,PKTSSR 


PC,.FATCHK 
SEG 


INTRECV 
22% 


ERRNO, T7NINT,PKTSSR 


SEQ 165 


3////////7//7// BEGIN SUBTEST //4/////////7/ 
17.4: 
TRAP CsB6SuUB 


sSET SECOND PACKET UP 
sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP CsSPRI 
sGET THE ADDRESS OF COMMAND PACKET 
3GET THE ADDRESS OF 2ND CMD PACKET 
sSTART WITH MINIMUM ALLOWABLE VALUE 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 

300 SOFT INIT OF CONTROLLER 

;6R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR sore: ™ is 


CsEROF 
-WORDB 731 
SFIERR 


. WORD 


WORD SFIMSG 
;CLEAR FATAL ERROR FLAG 
;CLEAR INTERRUPT RECEIVED FLAG 
3SET THE PACKET ADDRESS 
sSECOND COMMAND PACKET 
sWAIT FOR SSR TO SET 
sGET CONTENTS OF TSSR REGISTER 
sCHECK FOR SSR C(TSSR) SET 
;BR, IF SSR SET (GOOD) 
s;DEVICE FATAL SSR tenes ale 


CSERDF 
«WORD 732 
-WORD T7SSR 


. WORD 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET eons 


TRAP 
;BY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 
10000$ -. 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


CZTKEA_ TK25 FRT END FUNC 01 
TEST 7: BASIC PACKET PROTOCOL 


000000 
110200 
000100 


000100 


K13 
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22s: 


25%: 


30$: 


ENOSUB 


ExIT 


TSSRCRS),R1 
@SSR!IRMR!ISC ,R2 
OOFL ,R1 


$ 
ERRNO, T7SSR,PKTSSR 


TsT 


SEQ 166 
TRAP CSERHRD 
WORD 733 
WORD T7NINT 


. WOR 
sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
3IS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
s00ES EXPECTED MATCH RECEIVED ? 

;OKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
734 


“wORD T7SSR 
"wORD PKTSSR 


3<eecececececcee END SEGMENT <ceeeeeeeceece 
oo 


TRAP CSESEG 
34//4/4////47/7 END SUBTEST S/S//S//4////77 
Ll 3 
TRAP CsESuUB 
;ALL DONE WITH THIS TEST 
TRAP CSsExIT 
. WORD L10061-. 


te 


TKEA_TK25 FRT F 
Baste PACKET 


ST ?: 


035702 
035702 


035710 
035712 
035712 
035714 
035716 
035720 


035724 


035744 


100204 
035712 
000000 


000010 


035724 
009000 
000016 
000000 


L135 
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7¢ 
s;LOCAL STORAGE FOR THIS TEST 


-BLK 
T7PACKET: 


T7DATA: 


“WORD 
T7BFR: .BLKW 


3¢ 


10-<, - TUV2AE7> 
sCOMMAND PACKET FOR TEST 


100204 sWRITE CHAR COMMAND, WITH IE, ACK 

i sADORESS OF CHARACTERISTICS BLOCK 

8. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

ate sADDRESS OF MESSAGE BUFFER 

a, sLENGTH OF MESSAGE BUFFER 

8. sMESSAGE SUFFER 


; 
sTEST DATA FOR SUBTEST FOUR 


3 

T7PKT: 
. WORD 
. WORD 
.» WORD 
. WORD 

T70TA: 
. WORD 
. WORD 


- WORD 
. WORD 


T7BUFR: .BLKW 


sCOMMAND PACKET FOR TEST 


100204 ;WRITE CHAR COMMAND, WITH IE, ACK 

~— ;ADDRESS OF CHARACTERISTICS BLOCK 

8. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

 aaaies sADDRESS OF MESSAGE BUFFER 

*, sLENGTH OF MESSAGE BUFFER 

8. sMESSAGE BUFFER ba 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


T7MBF: .ASCIZ 
T7NBA: .ASCIZ 
T7NNBA: .ASCIZ 


T7SSRM: .ASCIZ 
T7SSR: .ASCIZ 
T7NINT: .ASCIZ 
T7INT: .ASCIZ 
TST7ID: .ASCIZ 

EVEN 


‘Mestage Biffer Modified after MESSAGE BUFFER RELEASE Command’ 
‘NGA Not fear After WRITE CHARACTERISTICS Command’ 
NBA Se. After MESSAGE BUFFER RELEASE Command’ 


‘Contents Of TSSR Incorrect After Message Buffer Release’ 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
‘Basic Packet Protocol’ 


SEQ 167 


CZTKEA TK25 FRT END FUNC 41 
TEST 7: BASIC PACKET PROTOCOL 


012701 
012721 


012701 
012721 


035702 
100204 
035712 


000010 
035724 
000016 


035724 


M13 
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3¢ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


T7RST: 
SAVREG 
MOV @T7PACKET,R1 
MOV #100204 ,(R1)+ 
MOV @T7DATA,(R1)+ 
CLR CR1)+ 
MOV 08. ,CR1)+ 
MOV @T7BFR,CR1I)+ 
CLR R1)-+ 
MOV #14. ,CR1)+ 
CLR CR1)+ 
CLR CR1) 
CLR T7BFR 
RTS PC 


3¢ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


; ROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES 


T7RT2: 
SAVREG 
MOV @T7PKT,R1 
MOV #100204 ,(R1)+ 
MOV @T7DTA,CR1)+ 
CLR CR1)« 
MOV 08. eCR1)-> 
MOV @T7BUFR,CR1)+ 
CLR C(R1)> 
MOV #14. ,CR1)+ 
CLR C(R1)-+ 
CLR CR1) 
CLR T7BUFR 
RTS PC 
ENDTST 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 
;CLEAR 1ST LOC IN MESSAGE BUFFER 
s;RETURN 


L10061: 
TRAP 


CsETST 


SEQ 168 


6079 


037032 


037034 
037040 
037044 
037050 
037054 


gh 
; 
Z 
5 


012737 


104402 


002170 
005672 
003100 
040272 
017232 
000002 


016470 


037520 
010152 


040324 
037450 


002170 
002172 
177776 
017060 


002146 


002164 


-¥ 


3C 


N13 
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SEQ 169 


-SBTTL TEST 8: NON-TAPE MOTION COMMANDS 


; THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
OMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 


;THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
sMESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
;VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 


T8LOOP ; 


3$: 


4$: 


S$: 


10$: 


JSR 
MOV 


BGNSEG 


FATFLG 
GEPRT1,EPRTSW 
KTFLG 


@TST8ID,RO 


PC, TSTSETUP 
#2. ,LOOPCNT 


#PRIOO 
PC, SOF INIT 
3$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


@TBPK2 ,R4 
PC,WRTCHR 


4$ 
ERRNO, WRTMSG, SF IMSG 


PC, TEREST 
@TBPACKET ,R4 


FATFLG 
INTRECV 

R4, TSOBCRS) 
PC,CHKTSSR 
15$ 


T8:: 
;CLEAR FATAL ERROR FLAG 
3SET UP ERROR MESSAGE SWITCH 


sHOLD OFF KT11 


sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


sASSASASASSSS a SUBTEST S///4/4 7/4/1747 
od: 


TRAP CsB6SUB 

;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOC,.RO 
TRAP C$SPRI 

300 SOFT INIT OF CONTROLLER 

36R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
- WORD 1 
«WORD SFIERR 
-WORD  SFIMSG 

sWRITE CHARACTERISTICS PACKET 

sISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

;WRITE CHARACTERISTISC ‘~~ » 

CSERHRD 

TWORO 802 
-WORD WRTMSG 
-WORD SFIMSG 


;SET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP C$BSEG 


s;CLEAR FATAL ERROR FLAG 

s;CLEAR INTERRUPT RECEIVED FLAG 
sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 


= $a TK25 FRT END FUNC 01 
TEST 8: NON-TAPE MOTION COMMANDS 


6132 
6136 


037056 


037174 


037176 
037176 
037176 


037200 
037204 
037206 
037212 


104403 


005737 
001402 
004737 


017724 


002172 


000100 


010354 


002170 
017776 


B14 
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158: 


22%: 


258: 


308: 
358: 


598: 


60%; 


MOV 
ERROF 


ENOSEG 


ENOSUB 


TST 
BEQ 
JSR 


RO,R1 
ERRNO, T8SSR ,PKTSSR 


PC .FATCHK 
SEG 


INTRECV 
2es 
ERRNO, TONINT ,PKTSSR 


TSSRCRS),R1 
@SSR,R2 
OOFL RI 

25% 


OOFL ,R2 
R2,R1 


30% 
ERRNO, T8NBA,PKTSSR 


PC,.CKRAM 
593 
ERRNO ,PKTRAM,RAMERR 


FATFLG 
60% 
PC ,CKDROP 


SEQ 170 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP C SEROF 
«WORD 805 
«WORD TS8SSR 
WORD 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET eniuai 
L 


TRAP 
sBY-PASS SUBTEST IF FATAL ERROR 


TRAP CSESCAPE 
. 100008 -. 
sD0IO AN INTERRUPT OCCUR ? 
:;BRANCH IF YES 
TRAP CSERHRD 
. WORD 804 
. WORD TONINT 
~ WORD PKTSSR 
:GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 
sIS OFF-LINE BIT SET ? 
sBRANCH IF NOT OFF-LINE 
sSET OFF-LINE IN EXPECTED DATA 
3D0ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
sNBA NOT ZERO 
TRAP CSERHRD 
. WORD 805 
. WORD T8NBA 
. WORD PKTSSR 
;CHECK RAM TO MEMORY 
sRAM OK GO ON 
s THEY DON'T MATCH 
TRAP CSERHRD 
. WORD 806 
. WORD PK TRAM 


-WORD RAMERR 
geecceececcecce END SEGMENT 660000000 OCE 
10000$% 


TRAP CSESEG 


gV\ANNANNNNANANN ENO sverest NANANANNNANAAN 
L F} 
TRAP CsESUB 
sANY FATAL ERRORS ? 


sBRANCH IF NOT 
sTPY TO OROP THE UNIT 


C14 
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037212 
037212 
037212 


037214 
037214 
037220 
037222 
037222 


037224 


011520 
104406 


104410 
000074 


016470 


037520 
010152 


| 
; 
sTEST 8, SUBTEST 2 


SEQ 171 


i CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 


s INITIALIZE COMMAND TO BE REJECTED 
3 
3 - 


BGNSUB 


SETPRI @PRIOO 


BGNSEG 


JSR PC, SOF INIT 
3% 


bcs 

MOV RO,R1L 

ERRDF ERRNO, SF IERR, SF IMSG 
3$: 

MOV @TBPK2 ,R4 

JSR PC ,WRICHR 

6cs 4s 

ERRHRD ERRNO,WRTMSG, SF IMSG 
4%: 

JSR PC, TBREST 
5 MOV @TBPACKET ,R4 

$: 

108; CLR INTRECV 

BIS oP .MODE , (R4) 

MOV R4,TSOBCRS) 

JSR PC,CHKTSSR 

bcs 15% 

MOV RO,R1L 

ERROF ERRNO, T8SSR,PKTSSR 
158: CKLOOP 

ESCAPE SEG 


s//////////7/7/ BEGIN SUBTEST S//S/SS/////7/7/ 
78.2: 
TRAP Cs6SUB8 
;sLOWER PRIORITY TO a yoy aR 


@PRIOO,RO 
TRAP CsSPRI 
3>>>>>>>>>>>> BEGIN SEGMENT >> >>>>>>>>>> 
TRAP = C$BSEG 


300 SOFT INIT OF CONTROLLER 

s68R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR act — 


TORO 807 
-WORD SFIERR 
«WORD SFIMSG 


sWRITE CHARACTERISTICS PACKET 
s ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 808 
-WORD WRTMSG 
-WORD SFIMSG 


sSET UP PACKET FOR COMMAND 
sGET THE ADDRESS OF COMMAND PACKET 


sCLEAR INTERRUPT RECEIVED FLAG 
sNON-ZERO COMMAND MODE BITS 
sSET THE PACKET ADDRESS 

sWAIT FOR SSR TO SET 

3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

sDEVICE FATAL SSR raRED TS aoe 


CSEROF 

-WORD 809 

-WORD T8SSR 

.WORD  PKTSSR 
;LOOP ON ERROR, IF FLAG SET 

TRAP CscCLPL 
sBY-PASS CHECKS IF FATAL ERROR 

TRAP CSESCAPE 


. WORD L0000$ -. 


D14 
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6220 
6221 
6225 


6245 
6246 


037432 


037434 
037434 
037434 


000000 
100206 
000100 


000100 


010354 


228: 


253: 


308: 
358: 


598: 


TST 
BNE 
ERRHRD 


ENOSEG 


ENDSUB 


INTRECV 
228 
ERRNC, TENINT ,PKTSSR 


TSSRC(RS),R1 
oe 


R2,R1 


30% 
ERRNO, T62REJ,PKTSSR 


PC ,CKRAM 
59% 
ERRNO, PK TRAM,RAMERR 


s0ID AN INTERRUPT OCCUR ? 
sBRANCH IF YES 


sGET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF-LINE 

sSET OFF-LINE IN EXPECTED DATA 
s00ES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 

sCOMMAND NOT REJECTED 


TRAP 
. WORD 
WORD 
WORD 

;CHECK RAM TO MEMORY 

3RAM OK GO ON 

; THEY DON'T MATCH 
TRAP 
WORD 
. WORD 
WORD 


SEQ 172 


CSERHRD 
811 


CSERHRD 
812 
PKTRAM 
RAMERR 


. 
gee eeeecee: END SEGMENT <ceeeeeececce 
1 


0000$: 
TRAP 


CSESEG 


SNANNNANNNANNN END SUBTEST \ANAAAANAANAN 


L10070: 
TRAP 


CsESUB 


Sh TK2S FRT END FUNC 41 


E14 


MACRO M1200 20-APR-84 08:12 PAGE 114 


8: NON-TAPE MOTION COMMANDS 


6248 


037436 
037436 
037440 


037442 
037450 
037450 
037452 
037454 
037456 


037460 
037460 
037462 
037464 
037466 


037472 


037512 


037562 
037622 
037703 
037733 
040014 
040070 
040144 
040222 
040272 


104432 
000770 


100204 
037460 
000000 


000010 


037472 
000000 
000016 
000000 


100204 
037530 
000000 


000010 


037542 
000000 
000016 
000000 


ExIT 


TsT 


3? 
;LOCAL STORAGE FOR THIS TEST 


TEDATA: 


TBDTA: 


TeBF2: .BLKW 


10-<, - TUV2AE7> 


SEQ 173 


sALL DONE THIS TEST 
TRAP 
. WORD 


CsExIT 
L10066-. 


sCOMMAND PACKET FOR TEST 


100204 sWRITE CHAR COMMANDO, WITH IE, ACK 

 ecunege: sADDRESS OF CHARACTERISTICS BLOCK 

8. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

as sADDRESS OF MESSAGE BUFFER 

we sLENGTH OF MESSAGE BUFFER 

8. sMESSAGE BUFFER 


10-<, - TUV2AE7> 


sCOMMAND PACKET FOR TEST 


100204 ;WRITE CHAR COMMAND, WITH IE, ACK 

— sADDRESS OF CHARACTERISTICS BLOCK 

8. sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

= sADDRESS OF MESSAGE BUFFER 

ee sLENGTH OF MESSAGE BUFFER 

8. sMESSAGE BUFFER 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


T8NBA: 


TSTBID: 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-EVEN 


‘INITIALIZE Command Not Accepted’ 

‘INITIALIZE Not Rejected With Non-Zero Mode Field’ 
‘GET STATUS Not Accepted’ 

‘GET STATUS Not Rejected With Non-Zero Mode Field’ 
‘Contents of TSSR Incorrect After INITIALIZE’ 
‘Contents of TSSR Incorrect After GET STATUS’ 
‘Expected Interrupt Not Received On INITIALIZE’ 
‘Incorrect TSBA Address After INITIALIZE’ 
‘Non-Tape Motion Commands’ 


SE lNeA TKeS FR 
EST 8: T 


NON - 


012701 
012721 


012701 


037450 
100213 


037472 


037450 
100217 


037472 


F14 


one M1200 20-APR-84 08:12 PAGE 115 


3¢ 


é 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


s INITIALIZE COMMAND 
; 
57 


TBREST: 
SAVREG 
MOV @TBPACKET ,R1 
MOV #100213,(R1)+ 
CLR (R1)+ 
CLR (R1)+ 
CLR (R1)+ 
CLR C(R1)+ 
CLR (R1)+ 
CLR (R1)+ 
CLR (R1i)> 
CLR (R1) 
CLR T8BFR 
RTS PC 


3¢ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 
sINITIALIZE WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;CLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


3GET STATUS COMMAND 
‘ 
* Pinas 


TBRTe: 
SAVREG 
MOV @TSPACKET,R1 
MOV #100217,(R1)>+ 
CLR CR1)> 
CLR CR1)> 
CLR CR1)-+ 
CLR CR1)> 
CLR CR1)> 
CLR CR1)> 
CLR (R1)+ 
CLR (R1) 
CLR T8BFR 
RTS Cc 
ENDTST 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

3GET STATUS WITH ACK, IE 
sADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


;LENGTH OF MESSAGE BUFFER 
;CLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


L10066: 


TRAP CsETST 


SEQ 174 


FEST", 


TK2S FRT 
: DMA ME 


YA 


G14 
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BORE SS1NG 


012737 


002170 
005672 002146 
003100 
042100 
017232 
000002 002164 


-SBTTL TEST 9: DMA MEMORY ADDRESSING 


zee 
; TEST 1 
TEST DESCRIPTION 


This test verifies that the controller can properly address and 
access all available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading (DATI) 
and writing (DATO). Verified are the LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 


TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 
BEGIN 


Do Subtest 1 - Verify GET STATUS selected locations 

Do Subtest 2 - Verify message packets selected locations 

Do Subtest 3 - Verify Characteristic data selected locations 
a Subtest 4 - Verify NXM to selected invalid addresses 


oe of © Ge Gf ©. ©F Ge GF Ge GH GF GF os Gs oF OF GF GF GF oF 


BGNTST 
9:: 


CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV #EPRT1,EPRTSW 3SET UP ERROR MESSAGE SWITCH 
CLR KTFLG sHOLD OFF KT11 

MOV @TST9ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

MOV #2. ,LOOPCNT sPERFORM 2 ITERATIONS 


T9LOOP : ;LOOP ON TEST LABEL 


CZTKEA TK25 FRT END FUNC #1 
TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


6443 040560 


104402 


012700 
004737 


004737 
103405 


010001 


104455 
001605 
003550 
011506 


012704 
004737 
005037 
010465 
004737 


103405 


125252 
020216 


016470 


H14 
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-SBTTL TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 
see 
: TEST 9: SUBTEST 1: 
SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch a get status 
command from all available memory locations. 

Two word blocks are tested one at a time by first setting 

all available memory to a background pattern of 125252. 

A Get Status command is then executed to various addresses in 
each available memory 4k word block. The various addresses 

are determined by floating a 1 then a O through the address bits. 


TEST STEPS: 


BEGIN 
Fill Memory with background pattern of 125252 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer 


ga ae SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Get a valid modulo-4 test address 
eo Do a GET STATUS command from the test address 
END 


BGNSUB PW AAAAAAAAAA ee SUBTEST S////////7/ 
9.1: 
TRAP CsB8SUB 
sFill Memory with cerned pattern of 125252 


MOV #12525 sBACKGROUND DATA 
JSR PC,FILLMEM sFILL MEMORY WITH BACKGROUND DATA 
;Write to TSSR to soft initialize 

JSR PC,SOFINIT 300 SOFT INIT OF CONTROLLER 

bcs 15$ 368R IF SOFT INIT = OK 

NEXT .ERRNO 

MOV RO,R1 3SAVE CONTENTS OF TSSR 

ERROF ERRNO, SFIERR, SF IMSG ;DEVICE FATAL ERROR DURING INIT 
TRAP CSEROF 
WORD 901 


“WORD SFIERR 
"wORD SFIMSG 


£7 a WRITE CHARACTERISTICS to setup a message buffer 
15$: 


MOV OTOPACKET ,R4 sGET THe ADDRESS OF COMMAND PACKET 
JSR PC, TOSWRT sRESTORE PACKET TO STARTING VALUES 
CLR KTENABLE sTURN OFF KT-11 

MOV R4, TSOBCRS) ;SET THE PACKET ADORESS 

JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 17$ 


BCS 20% 3BR IF SSR SET IN CHKTSSR 


T14 
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TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 

6444 040562 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6445 040564 NEXT. ERRNO 

6446 040564 17$: ERRDF ERRNO, TOWRTSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040564 104455 TRAP CSEROF 
040566 001606 «WORD 902 
040570 042202 . WORD TOWRTSSR 

ane? 040572 011520 .WORD PKTSSR 

6448 :Verify a Get Status can be fetched from each address 

6449 :Get a valid modulo-4 test address 

6450 “of a GET STATUS command from the test address 

6451 040574 005037 002170 20$ CLR FATFLG ;CLEAR FATAL ERROR FLAG 

6452 040600 005037 041740 CLR TOKT ;TEST ABOVE 28K SWITCH 

6453 040604 012702 041744 MOV @T9SBLK ,R2 sPOINT TO TEST PATTERN TABLE 

6454 040610 T91LO00P: 

6455 040610 005037 003102 CLR K TENABLE 3TURN OFF ABOVE 28K TEST FLAG 

6456 040614 012201 MOV CR2)+,R1 ;GET TEST PATTERN ADDRESS 

6457 040616 005000 CLR RO sASSUME NO TEST ABOVE 28K 

6458 040620 005737 041740 TST TOT sTEST ABOVE 28K THIS TIME? 

6459 040624 001407 BEQ 25% 3;6R IF NO 

6460 040626 016200 177776 MOV -2(R2),RO ;GET TEST PATTERN AGAIN 

6461 040632 042700 177774 BIC @tC<A1716>,RO sSAVE 18 BIT ADORESS ONLY 

6462 040636 012737 000001 003102 MOV @1,KTENABLE ;TURN ON ABOVE 28K TEST FLAG 

6463 040644 004737 042746 258: JSR PC, TSCONVERT sCONVERT TEST PATTERN TO TEST ADDRESS 

6464 040650 103034 BCC 65$ 3;68R IF INVALID PACKET ADORESS 

6465 040652 013704 041734 MOV TOLOADD ,R4 sCOPY CURRENT PACKET LOW ADDRESS 

6466 040656 013703 041732 MOV TOHIADD ,R3 ;COPY CURRENT PACKET HIGH ADDRESS 

6467 040662 004737 043504 JSR PC, TOSETGET ;SETUP CURRENT PACKET TO GET STATUS 

6468 040666 042703 177774 BIC etC<A1716>, R3 sSAVE ADORESS BITS 17+16 

6469 040672 050304 BIS R3,R4 ;SETUP 18 BIT PACKET ADDRESS 

6470 040674 004737 020070 JSR PC, KTOFF ;TURN OFF KT-11 

6471 040700 010465 177776 MOV R4,TSOBCRS) 3;SET THE PACKET ADDRESS TO EXECUTE 

6472 040704 004737 017060 PC,CHKTSSR ;sWAIT FOR SSR TO SET 

6473 040710 FORCERROR 32% 

6474 040724 103405 BCS 40$ ;BR IF SSR SET IN CHKTSSR 

6475 040726 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6476 040730 NEXT. ERRNO 

6477 040730 328: ERRDF ERRNO,T9GETSSR,PKTGETS ;DEVICE FATAL SSR FAILED TO SET 
040730 104455 TRAP CSERDF 
040732 001607 -.WORD 903 
040734 042126 . WORD TOGETSSR 
040736 011550 .WwORD PKTGETS 

6478 040740 40$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
040740 104406 TRAP CsCLP1 

6479 040742 65$: 

6480 040742 FORCEXIT 80$ 

6481 040752 020227 042076 CMP R2, OTOTBE ;DONE ALL TSTBLK TEST PATTERNS? 

6482 040756 103002 BHIS 70$ 3;8R IF YES 

6483 040760 000137 040610 JMP T91L00P 3D0 ANOTHER MODULO- 4 ADDRESS 

6484 040764 005737 041740 70$: TST TOKT ;D0NE ABOVE 28K TESTING TOO? 

6485 040770 003012 BGT 80$ 3;68R IF YES 

6486 040772 005737 003100 TST KTFLG ;ANY MEMORY ABOVE 28K ON SYSTEM? 

6487 040776 001407 BEQ 80$ 3BR IF NO 

6488 041000 012737 000001 041740 MOV 1, T9KT 3SET SWITCH 

6489 041006 012702 041744 MOV @T9OBLK ,R2 ;RESET TEST PATTERN TABLE 

6490 041012 000137 040610 JMP T91L00P :D0 ABOVE 28K TESTING 

6491 041016 004737 020070 80$: JSR PC, KTOFF 3; TURN OFF KTL1L 


CZTKEA TK25 FRT END FUNC 
TEST 9: SUBTEST 1: 


6492 


041022 
041022 
041022 
041024 
041030 
041032 
041036 


104403 
005737 
001402 
004737 


#1 


002170 
017776 


J14 
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GET STATUS SELECTED LOCATIONS 


100$;: 


ENDSUB 


TsT FATFLG 
BEQ 100$ 
JSR PC ,CKDROP 


SEQ 178 


sN\ANNNNANANANN END a NANANANANNAANA 


TRAP CSESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


K14 
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TEST 9: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATEONS 
oes -SBTTL TEST 9: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
6 zee 
6501 ; TEST 9; SUBTEST 2: 
6502 H 
aes ; SUBTEST DESCRIPTION: 
; 
6505 ; This subtest verifies the controller can deposit message packets 
6506 3 to all available memory locations. 
6507 : First all available memory is set to a background pattern 
6508 3 of 125252. 
6509 3 Write Characteristics commands are then executed with message 
6510 3 buffer addresses set to various addresses in each available 
6511 3 memory location. 
6512 3 The various addresses are determined by floating a 1 then a 0 
6513 3 through the address bits. 
6514 F 
6515 ; TEST STEPS: 
6516 : 
6517 3 BEGIN 
6518 ; Fill Memory with background pattern of 125252 
6519 3 Write to TSSR to soft initialize 
Sean 3 Do a WRITE CHARACTERISTICS to setup a message buffer to compare 
; 
eaee 3 coy” te SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
H 
6524 3 Get a valid modulo-4 test address 
6525 3 Set the packet mess buffer to the TEST ADDRESS 
6526 3 Do a WRITE CHARACTERISTICS 
6527 ; Restore the test message buffer to background pattern 
6528 3 END 
6529 3 END 
6530 3-- 
6531 
6532 041036 BGNSUB 34/////////7// BEGIN SUBTEST /////////7/ 
041036 T9.2: 
9533 041036 104402 TRAP CsB6SUB 
6534 sFill Memory with oT gS pattern of 125252 
6535 041040 012700 125252 MOV #125252 ,R0 ;BACKGROUND DATA 
43 041044 004737 020216 JSR PC,FILLMEM ;FILL MEMORY WITH BACKGROUND DATA 
6538 sWrite to TSSR to soft initialize 
6539 041050 004737 016470 JSR PC,SOFINIT 3:00 SOFT INIT OF CONTROLLER 
6540 041054 103405 BCS 153 ;B8R IF SOFT INIT = OK 
6541 041056 NEXT. ERRNO 
6542 041056 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
6543 041060 ERRDF ERRNO,SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
041060 104455 TRAP CsERDF 
041062 001610 -WORD 904 
041064 003550 «WORD SFIERR 
nan 041066 011506 -WORD SFINsG 
6545 ;Do a WRITE CHARACTERISTICS to setup a message buffer to compare 
6546 041070 ; 158: 
6547 041070 012704 041670 MOV @TOPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
6548 041074 004737 043436 JSR PC, T9SWRT ;SET PACKET TO WRITE CHARACTERISTICS 


6549 041100 004737 020070 JSR PC ,KTOFF sTURN OFF KT-11 


ZTKEA TK25 FRT 
EST 


9: SUBTES 


T 


L1i4 


SEQ 180 


END FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 119-1 
2: MESSAGE 1 DACKETS TO SELECTED LOCATIONS 
010465 177776 MOV R4,TSOBCRS) 3SET THE PACKET ADORESS 
004737 017060 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 17$% 
103405 6cs 20$ F ;68R IF SSR SET IN CHKTSSR 
010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
17$: ERRDF ERRNO, TOWRTSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
104455 TRAP CSEROF 
001611 -WORD 905 
042202 . WORD TOWRTSSR 
011520 -WORD PKTSSR 
;Get a valid modulo-4 test address 
3:Set the packet mess buffer to the test address 
Sof a uaITE So sTics 
005037 002170 20$ CLR FATFLG ;CLEAR FATAL ERROR FLAG 
012703 041744 romeer MOV @T9BLK ,R3 sPOINT TO TEST PATTERN TABLE 
012301 MOV CR3)+,R1 ;GET TEST PATTERN ADDRESS 
010100 MOV R1,RO 3GET ADDRESS ALL "18 BITS” 
042700 177774 BIC #177774,R0 ;LEAVE ONLY A17 AND A16 
042701 000001 BIC #1,R1 sALWAYS ON A WORD BOUNDRY 
004737 043140 JSR PC,T9CT2 ;CONVERT TEST PATTERN TO TEST ADDRESS 
103402 bcs 25% 3BR IF VALID MESSAGE BUFFER ADDRESS 
000137 041274 150$ 3;GET ANOTHER TEST PATTERN TO TRY 
012704 041670 258: MOV @TOPACKET ,R4 3SET THE COMMAND PACKET ADDRESS 
004737 043436 JSR PC, TOSWRT ;SETUP TOPACKET TO WRITE CHAR. 
013737 041734 041700 MOV TSLOADD,TO9DATA ;SETUP Low ORDER MESSAGE BUFFER ADD. 
013737 041732 041702 MOV TOHIADD,, TIDATA+2 ;SETUP HIGH ORDER MESSAGE BUFFER ADD. 
004737 020070 SR PC ,KTOFF 3TURN OFF KT-11 
010465 177776 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 017060 PC,CHKTSSR sWAIT FOR SSR TO SET 
FORCERROR 32$ 
103405 BCS ;8R IF SSR SET IN CHKTSSR 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
32s: ERROF ERRNO, TOWRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
104455 TRAP CsEROF 
001612 -WORD 906 
042202 . WORD TOWRTSSR 
011520 .WORD PKTSSR 
50$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
1508: 
FORCEXIT 160 
020327 042076 CMP R3,¢T9'TBE ;DONE ALL TST9OBLK TEST PATTERNS? 
103002 BHIS 160¢ ;8R IF YES 
000137 041154 JMP T92LO00P 3:00 ANOTHER MODULO- 4 ADDRESS 
004737 020070 160$; JSR PC ,.KTOFF 3; TURN OFF KT11 
ENDSUB s\VANNNNANNNNNN END SUBTEST \\NANANNANNAN 
Li : 
104403 TRAP CsESuUB 
005737 002170 TST FATFLG ;ANY FATAL ERRORS ? 
001402 BEQ 180$ ;BRANCH IF NOT 
004737 017776 JSR PC,CKOROP ;TRY TO DROP THE UNIT 


180$; 


CZTKEA TK25 FRT END FUNC 41 


TEST 9: SUBTEST 3: 


6646 041404 


005037 
005037 
012703 


125252 
020216 


016470 


002170 
041740 
041744 


M14 
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CHARACTERISTIC DATA SELECTED LOCATIONS 


-SBTTL TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 


zee 

; TEST 9: SUBTEST 3: 

SUBTEST DESCRIPTION: 
memory locations. 

pattern of 125252. 


TEST STEPS: 
BEGIN 
Write to T 


END 
END 


BGNSUB 


3Fill — with ossse ao pattern of 


#12525. 
JSR PC,FILLMEM 


sWrite to TSSR to soft initialize 
JSR SOF INIT 


PC, 
BCS 208 
NEXT .ERRNO 

* MOV 


ERROF 


;Get a valid test address 


20%: CLR FATFLG 
CLR TOKT 
MOV #T9BLK ,R3S 


T93LOOP : 


RO,R1 
ERRNO, SF TERR, SF IMSG 


This subtest verifies the controller can fetch a 
Write Characteristics date block from all available 


Firet. ell available memory is set to a background 


Then Write Characteristics commands are executed with 

characteristic data blocks at various memory addresses. 

The various memory addresses are determined by floating 
a l then a O through the address bits. 


Fill Memory with background pattern of 125252 
tsp to soft initialize 


LALLA — AAA AAAAL 
9.3: 
TRAP csBSuUB 
125252 


sBACKGROUND DATA 
sFILL MEMORY WITH BACKGROUND DATA 


;00 SOFT INIT OF CONTROLLER 
;BR IF SOFT INIT = OK 


sSAVE CONTENTS OF TSSR 
s;DEVICE FATAL ERROR DURING INIT 


TRAP CSERDF 
-WORD 907 

-WORD SFIERR 
-WORD SFIMSG 


;CLEAR FATAL ERROR FLAG 
sTEST ABOVE 28K SWITCH 
sPOINT TO TEST PATTERN TABLE 


SEQ 181 


ga* ~ Aree SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Get a valid test address 

Set the test packet characteristics data pointer to the 
test address. 

Store expected cnaracteristic data in test address block 

Do ea WRITE CHARACTERISTIC command 


N14 


* $hoe TK25 FRT END FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 120-1 SEQ 182 
EST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 

6647 041404 005037 003102 CLR K TENABLE sTURN OFF ABOVE 28K TEST FLAG 

6648 041410 012301 MOV CR3)+,R1 }GET TEST PATTERN ADDRESS 

6649 041412 010100 MOV R1,RO ;GET ADORESS ALL “18 BITS” 

6650 041414 042700 177774 BIC #177774,RO0 ;LEAVE ONLY A17 AND A16 

6651 041420 042701 000003 BIC #3,R1 3GET RID OF A17 AND Al16 

6652 041424 005737 041740 TST THT sTEST ABOVE 28K THIS TIME? 

6653 041430 001407 BEQ 25$ 3;6R IF NO 

6654 041432 016300 177776 MOV -2(R3),RO ;GET TEST PATTERN AGAIN 

6655 041436 042700 177774 BIC @tC<A1716>,RO sSAVE 18 BIT ADDRESS ONLY 

6656 041442 012737 000001 003102 MOV #1,KTENABLE ;TURN ON ABOVE 28K TEST FLAG 

6657 041450 004737 042746 25%: JSR PC, TSCONVERT sCONVERT TEST PATTERN TO TEST ADDRESS 

6658 041454 103402 bcs 30$ 368R IF VALIO TEST ADORESS 

6659 041456 000137 041560 JMP 60$ sGET NEXT TEST PATTERN 

6660 iSet the test packet ar + atten os pointer to the test address 

6661 041462 012704 041670 308: MOV @TOPACKET T ADDRESS OF COMMAND PACKET 

6662 041466 004737 043436 JSR PC, TOSuaT }RESTORE PACKET TO STARTING VALUES 

6663 041472 013764 041734 000002 MOV TSLOADD , PKLOWCR4 ) :STORE CHAR. DATA PTR LOW ADDRESS 

6664 041500 013764 041732 000004 MOV TOHIADD , PKHICR4 ) sSTORE CHAR. DATA PTR HIGH ADDRESS 

6665 041506 004737 043546 JSR PC, TOCHAR sSTORE EXPECTED DATA IN DATA BLOCK 

6666 :Do a WRITE CHARACTERISTIC command 

6667 041512 004737 020070 JS eKTOFF 3 TURN OFF KT-11 

6668 041516 010465 177776 MOV R4, TSDBCRS) SSET THE PACKET ADDRESS TO EXECUTE 

6669 041522 004737 017060 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

6670 041526 FORCERROR 32$ 

6671 041542 103405 BcS 40$ ;8R IF SSR SET IN CHKTSSR 

6672 041544 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6673 041546 NEXT .ERRNO 

6674 041546 328: ERROF ERRNO, TOWRTSSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041546 104455 TRAP CsEROF 
041550 001614 -WORD 908 
041552 042202 .WORD TOWRTSSR 
041554 011520 .WORD PKTSSR 

6675 041556 40$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
041556 104406 TRAP CSCLP1 

6676 041560 60$: 

6677 041560 020327 042076 CMP R3,eT9STBE ;DONE ALL TSTBLK TEST PATTERNS? 

6678 041564 103002 BHIS 65$ ;68R IF YES 

6679 041566 000137 041404 JMP T93LO00P 300 ANOTHER MODULO- 4 ADDRESS 

6680 041572 005737 041740 65$: TST TOT sDONE ABOVE 28K TESTING TOO? 

6681 041576 003012 BGT 70$ 38R IF YES 

6682 041600 005737 003100 TST KTFLG sANY MEMORY ABOVE 28K ON SYSTEM? 

6683 041604 001407 BEQ 70$ ;8R IF NO 

6684 041606 012737 000001 041740 MOV 1, T9KT ;SET SWITCH 

6685 041614 012703 041744 MOV @T9BLK ,R3 sRESET TEST PATTERN TABLE 

6686 041620 000137 041404 JMP T93LO00P 300 ABOVE 28K TESTING 

6687 041624 004737 020070 70$: JSR PC ,.KTOFF 3 TURN OFF KT11 

6688 041630 ENDSUB s\N\NNNANAANANN END SUBTEST \ANANNAANNA 
041630 L 74: 
041630 104403 TRAP CsESUB 

6689 041632 005737 002170 TST FATFLG sANY FATAL ERRORS ? 

6690 041636 001402 BEQ 75$ ;BRANCH IF NOT 

6691 041640 004737 017776 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

6692 041644 75$: 

6693 041644 004737 017200 100$; JSR PC, TSTLOOP ;SHOULD WE DO ITERATIONS? 

6694 041650 103002 BCC 105$ ;68R IF NO 

6695 041652 000137 040466 JMP T9LOOP ;LOOP UNTIL ITERATION COUNT DONE 

66 041656 1058: 


Bis 


CZTKEA TK25 FRT END FUNC @1 MACRO M1200 20-APR-84 06:12 PAGE 120-2 SEQ 183 
TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
6697 041656 004737 020070 JSR PC ,.KTOFF s TURN OFF MEMORY MANAGEMENT 
6698 041662 EXIT TST sALL DONE THIS TEST 
041662 104432 TRAP CSExIT 
041664 001724 WORD L10071-. 
46092 
6700 
6701 3° 
6702 ;LOCAL STORAGE FOR THIS TEST 
6703 - 
6704 
6706 041666 .BLKB 10-<, - TUV2AE7> 
6708 041670 TOPACKET: sCOMMAND PACKET FOR TEST 
6709 041670 1 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
6710 041672 041700 WORD TODATA sADDRESS OF CHARACTERISTICS BLOCK 
6711 041674 000000 . WORD 0 
ty 041676 000010 . WORD 8. sSTARTING VALUE OF BLOCK SIZE 
671 
6714 041700 TODATA: sCHARACTERISTICS DATA BLOCK 
6715 041700 041712 . WORD T9OBFR sLOW ADDRESS OF MESSAGE BUFFER 
6716 041702 -WORD O SIGH ORDER OF MESSAGE BUFFER 
6717 041704 000016 . WORD 14, sLENGTH OF MESSAGE BUFFER 
th 041706 000000 000000 . WORD ° 
thing 041712 TOBFR: BLKW 8. sMESSAGE BUFFER 
6721 
6722 041732 000000 TSHIADD: WORD i?) sHIGH ADORESS 
6723 041734 000000 TOLOADD: wOoPD 1?) sLOW ADDRESS 
6724 041736 000000 TOPAR6: .WORD 0 sADDRESS IN PAR FORMAT 
6725 041740 000000 TOT: . WORD 0 sTEST ABOVE 28K SWITCH 
oie 041742 000000 T94TST: .WORD 0 sADDRESS TEST BIT 
3° 
6728 3 
6729 sTABLE OF ADDRESSES 
6730 2 
6731 e 
6732 041744 000001 T9BLK: .WORD 000001 
6733 041746 000002 WORD 000002 
6734 041750 000003 -WORD 000003 
6735 041752 000005 -WORD 000005 
6736 041754 -WORD 000006 
6737 041756 000007 -WORD 000007 
6738 041760 000011 -WORD 000011 
6739 041762 000012 -WORD 000012 
6740 041764 000013 . WORD 000013 
6741 041766 000021 -WORD 000021 
6742 041770 000022 -WORD 000022 
6743 041772 000023 WORD 000023 
6744 041774 000041 WORD 000041 
6745 041776 000042 . WORD 000042 
6746 042000 000043 . WORD 0000453 
6747 042002 000101 . WORD 000101 
6748 042004 000102 . WORD 000102 
6749 042006 000103 . WORD 000103 
«750 042010 000201 . WORD 000201 
6751 042012 000202 WORD 000202 
6752 042014 000203 . WORD 000203 
6753 042016 000401 . WORD 000401 


8 be 


TKEA TK25_FRI ENO F MACRO_M - APR - Pp 0-3 
Fee S. SGB TEST SMO chAN Ec Pearsrre Gata teCec TES ChEatons 12 PAGE 12 — 

6754 042020 000402 »WORD 000402 

6755 042022 000403 -WORD 000403 

6756 042024 001001 -WORD 001001 

6757 042026 001002 -WORD 001002 

6758 042030 001003 -WORD 001003 

6759 042032 002001 -WORD 002001 

6760 042034 002002 . WORD 2002 

6761 042036 002003 «WORD 002003 

6762 042040 004001 -WORD 004001 

6763 042042 004002 -WORD 004002 

6764 042044 004003 -WORD 004003 

6765 042046 010001 -WORD 010001 

6766 042050 010002 -WORDB 010002 

6767 042052 010003 -WORD 010003 

6768 042054 020001 -WORD 020001 

6769 042056 020002 . WORD 20002 

6770 042.60 020003 -WORD 020003 

6771 042062 040001 -WORD 040001 

6772 042064 040002 -WORD 040002 

6773 042066 040003 -WORD 040003 

6774 042070 100001 -WORD 100001 

6775 042072 100002 -WORD 100002 

6776 042074 100003 . WORD 100003 

» gh 042076 177777 T9TBE: .WORD 177777 

6 3° 

6779 3sLOCAL TEXT MESSAGES FOR TEST 

6780 :- 

6781 

6782 042100 104 115 101 TST9IO: .ASCIZ ‘DMA Memory re 

6783 042126 103 157 156 TSGETSSR: -ASCIZ ‘Contents of ISSR Incorrect After GET STATUS’ 

6784 042202 103 157 156 TOWRTSSR: -ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

6785 042271 115 145 163 TOMSGBUF : -ASCIZ ‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS’ 

6786 042367 102 141 143 T9BKGNO: -ASCIZ ‘Background Pettern Disturbed By WRITE CHARACTERISTICS’ 

6787 042455 105 170 160 TONINT: .ASCIZ ‘Expected Interrupt Not Received On WRIT. CHARACTERISTICS’ 

6788 042546 127 162 151 T9DPR: -ASCIZ ‘Write Characteristic data in rar does not match expected’ eh, 
ae 6789 042637 124 123 123 TONXM: -ASCIZ ‘TSSR NXM bit Failed to set when non-existent memory address specifi 

6790 EVEN 


CZTKEA TK25 FRT END FUNC 01 


TEST 9: SUBTEST 53: 


020112 
041736 
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s¢ 
sROUTINE TO CONVERT A 


; 
3 
: 
; 
5 
; 
i 
3 
j 
3 
: 
: 
3 
3 
: 
: 
3 
T 


258: 


353%: 
50$: 


CHARACTERISTIC DATA SELECTED LOCATIONS 


 aerany OF THE S 


MEMORY 


UPERVISOR. 


TO THE RELOCATION BAS 


INPUTS: 


RO 
R1 


TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
THIS IS ALWAYS BELOW 24K. 

ABOVE 28K —_— (VIA R1) THEN PAR 6 IS SET 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


* HIGH ORDE 


* ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
ADDRESS IN NON PAR6 FORMAT 

* LOW ORDER ADDRESS IN NON PAR6 FORMAT 

1 IF GOOD ADORE TURNED 


SS RE 
O IF TEST PATTERN OIO NOT YIELD A VALID ADDRESS 


TOLOADD ;CLEAR LOW 


TOHIADD ;CLEAR HIGH ADDRESS 
sCLEAR PAR6 BIASED ADDRESS 


TOPAR6 
@tC<7777>,R1 


Ss. 
RO, TSHIADD 
R2,R 


PC,SETMAP 
RO, TOPAR6 
105$ 


sFORCE TO LOWER 12 BITS OF ADDRESS 
sSAVE HIGH ORDER ADORESS BITS 
sSHUTOFF MEMORY MANAGEMENT 

sGET FIRST FREE ADDRESS 

sIN CASE TEST PATTERN=0 

sADD IN TEST PATTERN 

sMAKE IT MODULO-4 

sGET LAST FREE ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
ADORESS 


SEQ 185 


sSAVE AT LEAST 8 WORDS f CASE MESSAGE BUFFER) 
ADORESS 


sSAVE POSSIBLE LOW 
sSAVE IT IN PAR6 BIASED TOO 
sIS THIS ADDRESS ABOVE FREE SPACE? 


sBR IF YES 


sIS IT IN FREE SPACE? 
3BR IF YES- ITS GOOD 
sTESTING ABOVE 28K? 


3;8R IF YES 


368R IF NOT IN FREE SPACE 
sFORCE FIT THE TEST PATTERN 
sTRY THIS TEST PATTERN ADDRESS 


sTESTING ABOVE 28K? 
BR IF NO 


sANY MEMORY ABOVE 28K? 


368R IF NO 


sTURN ON MEMORY MANAGEMENT 

sGET HIGH ORDER ADORESS 

sSAVE POSSIBLE HIGH ADDRESS 

sGET COMPUTED LOW ORDER ADDRESS 
sRETURN PAR6 BIASED ADORESS IN RO 
sCOPY PAR6 BIASED ADDRESS 

sBR IF VALID ADDRESS 


E15 


* Shoe TK25 FRT ge MACRO M APR - P 
TEST 9: SUBTEST Se CHANACTERISTIC BATA CECECTED LOcATTONS t= PAGE 121-1 SEG 106 
6850 043130 000241 908: CLC CLR C BIT FOR FATLURE 
6851 043132 000401 BR 105$ ; 
6852 043134 000261 1008: SEC }SET SUCCESS 
6853 048186 000207 105$: RTS PC FRE TURN 


6855 


Fetes. "SS TEST Be chARAcfeRrstic BAtA SELECTED COcAF tons: ack omer a9 


020112 
041736 


ria 


SEQ 187 


3° 
sONLY FOR MESSAGE BUFFER ADDRESSES 


sROUTINE TO CONVERT A 


T9CTe2: 


25%: 


35%: 


TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC +S nee 


DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND T 


BEGINNING OF THE SUPERVISOR. 


THIS IS ALWAYS BELOW 24K. 


IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 


TO THE RELOCATION BASE, 
INPUTS: 


RO 
R1 


OUPTUTS: 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


TOPAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
TOHIADD = HIGH ORDER ADDRESS IN NON PAR6 FORMAT 

T9LOADD = LOW ORDER ADORESS IN NON PAR6 FORMAT 

C BIT = 1 IF GOOD ADDRESS RETURNED 

O IF TEST PATTERN DiD NOT YIELD A VALIO ADDRESS 


C BIT = 


sSAVE R1-RS UNTIL NEXT RETURN 


T9LOADD ;CLEAR LOW ADORESS 
bet on sCLEAR HIGH ADDRESS 


K TENABLE 
100% 

KTFLG 

90% 

PC ,KTON 
RS,RO 

RO, TSHIADD 
R2,R1 

PC, SETMAP 


RO, TOPAR6 
105$ 


AR6 
aera e Ri 


sCLEAR PAR6 BIASED ADDRESS 
SFORCE TO LOWER 12 BITS “arts 


3GET FIRST FREE ADDRESS 

sIN CASE TEST PATTERN=0 

} ADD IN TEST PATTERN 

3GET LAST FREE ADDRESS 

sSAVE AT LEAST 8 WORDS (CIN CASE MESSAGE BUFFER) 
sSAVE POSSIBLE LOW ADORESS 

sSAVE IT IN PAR6 BIASED TOO 

3IS THIS ADDRESS ABOVE FREE SPACE? 
3B8R IF YES 

3IS IT IN FREE SPACE? 

3;B8R IF YES- ITS GOOD 

sTESTING ABOVE 28K? 

3;68R IF YES 

;68R IF NOT IN FREE SPACE 

sFORCE FIT THE TEST PATTERN 

sTRY THIS TEST PATTERN ADDRESS 


sTESTING ABOVE 28K? 

;8R IF NO 

sANY MEMORY ABOVE 28K? 

3BR IF NO 

sTURN ON MEMORY MANAGEMENT 

sGET HIGH ORDER ADDRESS 

sSAVE POSSIBLE HIGH ADDRESS 
3GET COMPUTED LOW ORDER ADDRESS 
sRETURN PAR6 BIASED ADDRESS IN RO 
;COPY PAR6 BIASED ADDRESS 

;68R IF VALID ADDRESS 


G15 


KEA TK25 F F MACRO M - APR - : P - E 
FEVER, SRB VERT NOK fEnrsraE*ERPa BER rBB CBAAL RE? PAGE 122-1 am 

ante epee’ ceongt 90$: ue 1058 ;CLR C BIT FOR FAILURE 

6915 04 1 H 

6916 043322 000261 100$: SEC sSET SUCCESS 

ota 043324 000207 105$: RTS PC sRETURN 


CZTKEA TK25 FRT END FUNC 1 
TEST 9: SUBTEST 3: 


6920 
6921 
6922 
6923 
6924 


043436 
043436 


012701 


002206 
000020 


017060 


000000 
017060 
177776 
017060 
177776 


177776 


000022 


000002 002246 
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MACRO M1200 20-APR-84 08:12 PAGE 123 
CHARACTERISTIC DATA SELECTED LOCATIONS 


3¢ 


; 
sROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


Hy 

3; INPUT: 

4 

3 R4 ADDRESS OF THE COMMAND PACKET 

3 RS FIRST DEVICE UNIBUS ADDRESS 

F 

;OUTPUT: 

; CARRY SET - RAM MATCHES PACKET 

3 CLR - RAM DOES NOT MATCH PACKET 


6 
s IMPLICIT OUTPUT: 
THE TABLE Ae my IS FILLED WITH THE 
DATA HELD INR 
RAMSIZ SET 10. 2 FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


SCKRAM: : 
SAVREG ;SAVE THE GENERAL REGISTERS 
MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
MOV ORMPKTBEG ,R2 iBYTE ADDRESS OF FIRST RAM DATA 
CLR R3 ;CLEAR THE ERROR FLAG 
JSR PC,CHKTSSR ;WAIT FOR SSR 
MOVB #0, TSOBC(RS) 3SET MAINTENANCE MODE 
10$; JSR PC,CHKTSSR ;sWAIT FOR SSR TO SET 
MOV R2, TSDOBCRS) ;SELECT NEXT RAM ADDRESS 
JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 
MOVB TSBACRS), CR1) ;READ THE RAM DATA 
CMPB (R1)+,(R4)> ;COMPARE TO EXPECTED 
BEQ 20$ ;BRANCH IF OK 
INC R3 3;SET ERROR FLAG 
208: INC Re ;ADORESS OF NEXT RAM LOCATION 
CMP R2, ORMPK TBEG+2 ;DONE 2 BYTES? 
BLT 10$ 3;68R IF NO 
TST R3 :WAS AN ERROR FOUND ? 
BEQ 30$ ;BRANCH IF NOT 
C.e ;CLEAR CARRY TO SHOW ERROR 
BR 50$ sAND EXIT 
30%: SEC ; SHOW GOOD COMPARE 
50$: MOV #2,RAMSIZ 3SETUP RAMSIZ 
RTS PC ;RETURN 


3° 

‘ 

sROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 
3 - 


TOSWRT; 
SAVREG ;SAVE THE REGISTERS 


SEQ 189 


CZTKEA TK25 FRT 
TEST 9: SUBTEST 


E 


012701 
012721 


010401 
005737 
001404 
010300 
004737 
010001 
012700 
052700 
010021 
005021 
000207 


012700 
013701 
005737 
001402 
013701 
012021 
012021 
012021 
012021 
012021 
000207 


104401 


041670 
100004 
041700 


000010 
041712 


000016 


003102 


020112 


000017 
100000 


041700 
041734 
003102 


041736 


Ii5 


NO FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 123-1 
3: CHARACTERISTIC DATA SELECTED LOCATIONS 


MOV OTOPACKET ,R1 
MOV #100004 ,(R1)+ 
MOV @TODATA,CR1)> 
CLR (R1)> 

MOV 068. eCR1I)o 

MOV @TOBFR,CR1)>+ 
CLR CR1)> 

MOV #14. eCR1L)+ 
CLR CR1)-> 

CLR (R1) 

RTS PC 


3¢ 


; 
sROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 


R3 HIGH ORDER PACKET ADDRESS 
R4 LOW ORDER PACKET ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 


TOSETGET: 
SAVREG 
v 4,R1 
TST KTENABLE 
BEQ 10% 
MOV R3,RO 
JSR PC, SETMAP 
MOV RO,R1 
108: MOV oP .GETSTATUS,RO 
BIS oP .ACK,RO 
MOV RO,CR1)+ 
CLR CR1)+ 
RTS PC 


3° 


sSTART OF THE PACKET 

sWRITE CHARACTERISTICS WITH ACK 
sADDRESS OF CHAR — BLOCK 
sEXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;RETURN 


;SAVE THE REGISTERS 

;GET LOW ORDER ADDRESS 
sTESTING ABOVE 28K? 

3;6R IF NO 

;GET HIGH ORDER ADDRESS 
sRETURN ADDRESS BIASED TO PAR6 IN RO 
;GET ADDRESS 

iGET STATUS COMMAND CODE NO IE 
3SET ACK 

sSTORE GET STATUS IN PACKET 
;CLEAR UNUSED WORD 

;RETURN 


6 
sROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 
3 


ead 
TOCHAR: 
SAVREG 
"] @TSIDATA,RO 
MOV T9LOADD ,R1 
TST K TENABLE 
BEQ 10% 
MOV TOPARG,R1 
10$: MOV CRO)+,CR1)+ 
MOV CRO)+,CR1)> 
MOV CRO)+, CR1L)+ 
MOV CRO)+,CR1L)> 
MOV CRO)+, CRL)> 
RTS PC 
ENDTST 


;SAVE R1-RS UNTIL NEXT RETURN 
;GET TOPACKET DATA POINTER 
;ASSUME NOT ABOVE 28K 
sTESTING ABOVE 28K? 

36R IF NO 

;SET TEST ADDRESS ABOVE 28K 
sSTORE DATA WORD 1 

3STORE DATA WORD 2 

:STORE DATA WORD 3 

;STORE DATA WORD 4 

s;STORE DATA WORD 5 

;RETURN 


L10071: 
TRAP 


CsETST 


CZTKEA TK25 FRT END FUNC 


012737 
004737 
012703 


103407 
010001 


104455 
001751 
044447 


#1 


002170 
005672 
003100 
044262 
017232 
000002 


044536 
002732 
044220 
000010 


016470 


002170 
177776 
017060 
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MACRO M1200 20-APR-84 06:12 PAGE 124 SEQ 191 
TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 


002146 


002164 


000006 


3° 


T1LOLOOP: 


5$: 


. SBTTL 


TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 


TEST DESCRIPTION: 


This test verifies that a Hardware Initialize command 
invoked after a Write Characteristics command sets up 
the Command, Message and Characteristic image blocks 
in the controller ram correctly. 


TEST STEPS: 


REPEAT FOR LOOPCNT 
BEGIN 


Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR register is NOT=0 then Print Error. 
Write to TSSR register to soft initialize the controller 

If controller R 310-377 NOT=0 then Print Error 


T10:: 

FATFLG ;CLEAR FATAL ERROR FLAG 
EPRT1,EPRTSW ;SET UP ERROR MESSAGE SWITCH 
KTFLG sHOLD OFF KT11 
@TST1OID,RO sASCII MESSAGE TO IDENTIFY TEST 
PC, TSTSETUP 300 INITIAL TEST SETUP 
#2. ,LOOPCNT sPERFORM 2 ITERATIONS 
PC,TIOREST ;SET PACKET TO START-UP VALUES 
@TSTBLK+10. ,R3 ;START OF TEST DATA 
@TLOPACKET, Ra ;GET THE ADDRESS OF COMMAND PACKET 
os. .PKBCNTCR4) 3START WITH MINIMUM ALLOWABLE VALUE 
PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
10$ 3;68R IF SOFT INIT OKAY 
RO,R1 ;SAVE CONTENTS OF TSSR 
ERNO, SFIERR, SF IMSG ;sDEVICE FATAL DURING INIT 

TRAP CSEROF 

. WORD 1000 


«WORD SFIERR 
-WORD SFIMSC 


+t WRITE ee ee command. 


128: 


CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV R4, TSOBCRS) 3;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 12$ ;@@OFORCE ERROR IF FORCER=1 

BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERROF ERRNO,T1LOSSR,PKTSSR ;DEVICE FATAL SSR oan” TO SET 
TRAP CSERDF 
«WORD 1001 


. WORD TLOSSR 


K15 


CZTKEA TK2S5 FRT END FUNC #1 MACRO M1200 20-APR-84 08:12 PAGE 124-1 SEQ 192 
TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS . 

043752 011520 , -WORD PKTSSR 

7085 043754 004737 017724 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

7086 043760 15$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
043760 104406 TRAP CSCLP1 

7087 043762 016501 000000 MOV TSSRCRS),R1 sGET THE CONTENTS OF TSSR 

7088 043766 012702 000200 MOV @SSR,R2 sEXPECTED CONTENTS OF TSSR 

7089 043772 032701 000100 BIT OOFL Ri :IS OFF-LINE BIT SET ? 

7090 043776 001402 BEQ 25% sBRANCH IF NOT OFF-LINE 

ee 044000 052702 000100 BIS @OFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

7093 ;If the NBA bit in the TSSR register is NOT=0 then Print Error. 

7094 044004 25%: 

7095 044004 FORCERROR 27s ;9aD 

7096 044020 020201 CMP R2,R1 sD0ES EXPECTED MATCH RECEIVED ? 

7097 044022 001404 BEQ 30$ ;OKAY IF MATCH 

7098 044024 NEXT .ERRNO 

7099 044024 27$: ERRHRD ERRNO, TLONBA,PKTSSR sNBA NOT ZERO 
044024 104456 TRAP CSERHRD 
044026 001752 «WORD 1002 
044030 044374 -WORD T10ONBA 
044032 011520 . .WORD PKTSSR 

7100 0440%4 30$: CKLOOP ;LOOP ON ERROR ? 

net 044034 104406 TRAP CSCLP1L 

7102 sWrite to TSSR register to soft initialize the controller 

7103 044036 40$: 

7104 044036 004737 016470 JSR PC, SOF INIT ;WRITE TO TSSR TO SOFT INITIALIZE 

7105 044042 FORCERROR 42$ 3 

7106 044056 103405 BCS 50$ ;B8R IF SOFT INIT OKAY 

7107 044060 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

7108 044062 NEXT. ERRNO 

7109 044062 42s: ERROF ERRNO,SFIERR,SFIMSG sDEVICE FATAL DURING INIT 
044062 104455 TRAP CSEROF 
044064 001753 -WORD 1003 
044066 003550 «WORD SFIERR 

vans 044070 011506 -WORD SFIMSG 

7111 ;If eantooi ler RAM 310-377 NOT=0 then Print Error 

7112 044072 012704 000310 50$ MOV @310,R4 ;START WITH LOC 310 

7113 044076 005002 CLR R2 iMEMORY EXPECTED SHOULD BE 000000 

7114 044100 004737 017060 JSR PC,CHKTSSR ;WAIT FOR SSR READY 

7115 044104 110465 177777 60$: MOVB R4, TSDBHCRS ) ;SELECT RAM ADDRESS 

7116 044110 116501 177776 MOVB TSBAL(RS),R1 ;READ LOC CONTENTS 

7117 044114 FORCERROR 62$ ,NOTSSR 3880 

7118 044124 120102 CMPB R1,R2] ;CHECK MEMORY FOR 000000 

7119 044126 001406 BEQ 70$ ;BRANCH IF DATA OKAY 

7120 044130 NEXT .ERRNO 

7121 044130 62%: ERRDF ERRNO, T1O0MEM,RAMEXP sMEMORY NOT ZERO AFTER INIT. 
044130 104455 TRAP CSEROF 
044132 001754 WORD 1004 
044134 044335 .WORD TLOMEM 
044136 016224 .WORD RAMEXP 

7122 044140 004737 017724 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

7123 044144 70$: CKLOOP 
044144 104406 TRAP CsCLP1L 

7124 044146 ESCAPE TST ;EXIT ON FATAL ERROR 


044146 104410 TRAP CSESCAPE 


ye 
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ST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 

7128 044150 000434 -WORD 1L10075-. 

7126 044152 005204 82$: INC R4 sLOOK AT NEXT RAM LOC. 

7127 044154 020427 000377 CMP R4,0377 sAT TOP OF RAM ADDRESS SPACE 

My 044160 001351 BNE 60$ sBRANCH TILL ALL MEMORY TESTED 

7130 

7131 044162 005737 002170 TST FATFLG sANY FATAL ERRORS ? 

7132 044166 001402 BEQ 160$ sBRANCH IF NOT 

7133 044170 004737 017776 JSR PC .CKDROP sTRY TO OROP THE UNIT 

7134 044174 004737 017200 160$: JSR PC, TSTLOOP sDONE ALL ITERATIONS? 

7135 044200 103002 BCC 165$ ;BR IF YES 

7136 044202 000137 043646 JMP T1LOLOOP ;LOOP UNTIL ITERATION COUNT DONE 

7137 044206 1653: 

7138 044206 EXIT TsT 

044206 104432 TRAP CSExIT 
r39° 044210 000374 «WORD 1L10075-. 


M15 
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Tee Te a ent PE Ee WotR werre CGARACtERtsT#eS  O4 O8:12 PAGE 125 — 
714 3¢ 
714 ;LOCAL STORAGE FOR THIS TEST 
7144 3- 
7145 
7147 044212 .BLKB 10-<, - TUV2AE7> 
7149 044220 TLOPACKET: ;COMMAND PACKET FOR TEST 
7150 044220 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
7151 044222 044230 . WORD TLODATA sADDRESS OF CHARACTERISTICS BLOCK 
7152 044224 000000 .WORD O 
rues 044226 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
7155 044230 TLODATA: sCHARACTERISTICS DATA BLOCK 
7156 044230 044242 .WORD T10BFR sADDRESS OF MESSAGE BUFFER 
7157 044232 000000 .WORDB O 
7158 044234 000016 . WORD 14, ;LENGTH OF MESSAGE BUFFER 
toes 044236 000000 000000 -WORD 0,0 
7161 044242 TLOBFR: .BLKW 8. sMESSAGE BUFFER 
7162 ;LOCAL TEXT MESSAGES FOR TEST 
tea a 
7165 044262 111 156 151 TST10I0: .ASCIZ ‘Initialization After WRITE CHARACTERISTICS’ 
hp 044335 111 156 143 T10OMEM: wy ‘Incorrect RAM Data After Init’ 

EV 

7168 044374 127 122 111 TIONBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
7169 044447 103 157 156 T10SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 


CZTKEA TK25 FRT END FUNC 41 
TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 


044536 


012701 


Nis 
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3*¢ 


5 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; 
:- 


EVEN 


TLOREST: 
SAVREG sSAVE THE REGISTERS 
MOV @TLOPACKET,R1 ;START OF THE PACKET 
MOV #100004 ,(R1)+ sWRITE CHARACTERISTICS WITH ACK 
MOV @TLODATA,(R1)+ ;ADDRESS OF CHAR DATA BLOCK 
CLR CR1)+ s;EXTENDED ADDRESS 


MOV #8. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
es en sADDRESS OF MESSAGE BUFFER 
+ 
MOV #14. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
CLR (R1)+ 
CLR CR1) 
RTS PC ;RETURN 
ENOTST 


L10075: 
TRAP 


SEQ 195 


‘CSETST 


CZTKEA TKOS FRT END F 


TEST 


10: 


012737 


104402 
004737 
004737 


012700 
104441 


1 


016470 


045500 
010152 


UNC MACRO M1200 
INITIALIZE AFTER WRITE CHARACTERISTICS 


002146 


002164 


B16 
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SEQ 196 


-SBTTL TEST 11: BASIC WRITE SUBSYSTEM MEMORY COMMAND 


é 
sTHIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 


sBSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. 
sVERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND 


IT ALSO 
ITH A NON-ZERO 


Wl 
sMODE FIELO IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
sCOMMAND DECODING AND HANOLING SEQUENCES. 


T1L1LOOP: 


S$: 


108: 


BGNTST 


JSR 
JSR 
SETPRI 


FATFLG 

€PRT1, EPRTSW 
KTFLG 
@TST11I0,RO 
PC, TSTSETUP 
#2. ,LOOPCNT 


PC, TLLREST 
PC, TLIRST 
oPRIOO 


PC, SOF INIT 
10% 


RO,R1 
ERRNO, SF TERR, SF IMSG 


@TLIPK2,R4 
PC ,.WRICHR 
11% 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


FATFLG 
INTRECV 
@TLIPACKET ,R4 
R4,TSOBC(RS) 
PC,CHKTSSR 
INTRECV 

22s 


Til 
sCLEAR FATAL ERROR FLAG 
sSET UP ERROR MESSAGE SWITCH 


sASCII MESSAGE TO IDENTIFY TEST 
s00 INITIAL TEST SETUP 
sPERFORM 2 ITERATIONS 


34////////7//7 BEGIN SUBTEST SASS /S/S//4//7/ 


TRAP Cs8Su8 
sSET PACKET TO INITIAL VALUES 
sSET PACKET TO INITIAL VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 


sHOLD OFF KT11 


MOV @PRIOO RO 

TRAP CsSPRI 
y>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CsBSEG 


s00 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 


TRAP CSERDF 
-WORD 1101 

-WORD  SFIERR 
«WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC a 


CSERHRD 
-WORD 1102 
-WORD WRTMSG 
-WORD SF IMSG 


sCLEAR FATAL ERROR FLAG 

1CLEAR INTERRUPT RECEIVED FLAG 

3SET UP NEW WRT. SUBSYS MEM. COMMAND 
sSET THE PACKET ADORESS 

sWAIT FOR SSR TO SET 

;0I0 AN INTERRUPT OCCUR 2? 

sBRANCH IF YES 


Fest ta: BAste waive SUSstSrem mel 


7252 044762 
044762 104456 


7257 045010 052702 000100 


7270 045034 rephed 002170 
7272 045042 004737 017776 


7288 045070 
7289 045070 000 
7290 045071 000 


C16 
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ERRHRD ERRNO, TLININT,PKTSSR 


228: MOV TSSRCRS),R1 
MOV @SSR,R2 
BIT OOFL ,R1 
BEQ 25% 
BIS @OFL ,R2 
25%: CMP R2,R1 
BEQ 


308: 
ENOSEG 


598: ENDSUB 


TsT FATFLG 

BEQ 60% 

JSR PC ,.CKDROP 
608: 

EXIT TST 


z° 
sLOCAL STORAGE FOR THIS TEST 
5° 


.BLK 10-<, - TUV2AE7> 
TLIPACKET: 
100206 


"wORD TLIDATA 


TLIDATA; 

T118S0: .BYTE 
T118S1: .BYTE 
T118S2: .WORD 


TLIBFR: {BLKW 


e-oCoCoooO Ao 


28. 


LKB 10-<, -TUV2AE7> 


T1L1PK2; 
. WORD 100204 
. WORD TLLDTA 


30% 
ERRHRD ERRNO, T11NBA,PKTSSR 


SEQ 197 


WORD 1103 
WORD T1L1NINT 
PKTSSR 


sGET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF TSSR 

sIS OFF-LINE BIT SET ? 

sBRANCH IF NOT OFF -LINE 

sSET OFF-LINE IN EXPECTED DATA 

s00ES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

sNBA NOT ZERO 
TRAP CSERHRD 
«WORD 1104 
«WORD = TLINBA 
«WORD PKTSSR 


gcececccecceecece END SEGMENT <eeeececeeeced 
10000$: 
TRAP CSESEG 


gNANANANNANANN END SUBTEST \NANNAANANNANA 
7 . 
TRAP CsEsus 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 


sALL DONE THIS TEST 
TRAP CSEXxIT 
-WORD 110076-. 


sCOMMAND PACKET co TEST 
SWRITE SUBSYSTEM COMMAND , 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sBSELO BYTE 

3sBSEL1 BYTE 

:68SEL1 WORD 

s0ATA 

sMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 
sWRITE CHARA. MEM, CMND., WITH IE, ACK 
sADDRESS OF SELECT DATA BLOCK 


WITH IE, ACK 


D16 


FEEET: T"BRSERTUAMMET UN PEren EAGAY EBAAR2-APR-84 08:12 PAGE 127-2 ons 

7302 045504 000000 -WORD O 
t3o5 045506 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
7305 
7306 045510 TLLIOTA; sSELECT DATA BLOCK 
7307 045510 045076 . WORD T1L16FR sADDRESS OF MESSAGE BUFFER 
7308 045512 900000 -WORDB O 
7309 045514 000400 -WORD 256. sLENGTH OF MESSAGE BUFFER 
td 045516 000000 009000 -WORD 0,0 

11 
7312 
7313 3° 
7314 ;LOCAL TEXT MESSAGES FOR TEST 
r3i6 on 
7317 045522 127 122 111 TLINBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted’ 
7318 045576 105 170 160 TLiNINT: ASCIZ ‘Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’ 
ooas 045670 102 141 163 TST1ILID: — “ASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 

EV 


E16 
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012701 


012721 


045070 


3¢ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


TLLREST: 


T1LIRST: 


@TLIPACKET Ri 
#100206 ,(R1)+ 
@T1L1DATA,C(R1)+ 
(R1)> 
06.,CR1)+ 
(R1)+ 

(R1)+ 

(R1) 

PC 


#T11PK2,R1 
#100204 ,(R1)>+ 
@T110TA,(R1)> 
CR1)> 

08. eCR1L)eo 
OT11BFR,CR1)-> 


CR1)> 
9256. ,(R1)>+ 
R1)-+ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADORESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sCLEAR BSELO AND BSEL1 

sCLEAR SEL2 

sCLEAR DATA AREA 

sRETURN 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE CHARA. WITH ACK, IE 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

3SIZE OF DATA BLOCK IN BYTES 
sMESSAGE BUFFER ADDRESS 


sLENGTH OF MESSAGE BUFFER 
;CLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


10076: 
TRAP CseTs?T 


SEQ 199 


F16 
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HARDWARE PARAMETER CODING SECTION sere 

7360 .SBTTL HARDWARE PARAMETER CODING SECTION 

7361 

7362 ze 

7363 3 THE HAROWARE PARAMETER CODING SECTION CONTAINS MACROS 

7364 3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

7365 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

7366 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

7367 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

7368 ; WITH THE OPERATOR. 

7369 oe 

7370 046050 BGNHRD 
046050 000015 -WORD L10100-L $HARD/2 

737 046052 LSHARD: : 

1 

7372 046052 GPRMA HPM1,0,0,160000,177776, YES ;GET TSBA/TSDB REGISTER ADDRESS. 
046052 000031 -WORD TSCODE 
046054 046104 -WORD HPM1 
046056 160000 -WORD TSLOLIM 
046060 177776 . WORD TSHILIM 

7373 046062 GPRMA =HPM2,2,0,0,776, YES ;GET VECTOR ADDRESS. 
046062 001031 -WORD TSCODE 
046064 046135 -WORD HPM2 
046066 000000 -WORD TSLOLIM 
046070 000776 -WORD TSHILIM 

7374 046072 GPRMD  =—HPM3,4,0,340,0,7, YES ;GET INTERRUPT PRIORITY. 
046072 002032 «WORD TSCODE 
046074 046157 -WORD HPM3 
046076 000340 -WORD 340 
046100 000000 . WORD TS$LOLIM 
046102 000007 . WORD TSHILIM 

7375 046104 ENDHRD 

EVEN 

046104 L10100: 

7376 046104 104 105 126 HPM1: -ASCIZ ‘DEVICE ADDRESS (TSSR) ° 

7377 046133 111 116 124 HPMe: -ASCIZ ‘INTERRUPT VECTOR - 

da 046157 111 116 124 HPM3: ry ‘ INTERRUPT PRIORITY 

-EV 


7380 


G16 
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CEE ARE BARANE TER CODING SECTION 

7382 .SBTTL SOFTWARE PARAMETER CODING SECTION 

7383 

7384 se 

7385 | THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

7386 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

7387 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

7388 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

7389 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

7390 ; WITH THE OPERATOR. 

7391 ge 

7392 046210 BGNSFT 
046210 000006 .WORD L10101-L$SOFT/2 
046212 L$SOFT:: 

7393 046212 GPRML SPM1,0,-1, YES ;GET RAM DUMP TEST FLAG 
046212 000130 “WORD  TSCODE 
046214 046226 # SPH1 
046216 177777 “WORD -1 

7394 046220 GPRML SPM4.2,-1, YES ; GET ITERATION CONTROL. 
046220 001130 “WORD  TSCODE 
046222 046272 "wORD SPM4 
046224 177777 "WORD -1 

7395 ‘ GPRMD SPM6,4,0,7777,0,7777, YES ; GET LOCAL ERROR LIMIT 

7396 ; GPRMD SPM7,6.0,7777,0, 7777, YES ; GET GLOBAL ERROR LIMIT 

7397 046226 ENDSFT 

EVEN 
046226 L10101: 

7398 

7399 

7400 046226 105 116 101 SPM1:  .ASCIZ ‘ENABLE CONTROLLER RAM DUMP ON ERROR’ 

7401 046272 111 116 110 SPM4: ‘ASCIZ ‘INHIBIT ITERATIONS 

7402 046322 120 105 122 SPM6: _ASCIZ ‘PER TEST ERROR LIMIT ° 

7403 046352 120 105 122 SPM7:  .ASCIZ ‘PER UNIT ERROR LIMIT ° 

7404 “EVEN 

7405 "SBTTL PATCH AREA 

7406 - 

sep? ;OISPATCH TABLE 

; 
7409 ; ##* MOVE TO FRONT OF PROGRAM FOR RELEASE eee 
B= 

7411 

7412 046402 DISPATCH TESTNO 
046402 000013 .WORD 11 
046404 LSDISPATCH: : 

046404 023470 “WORD oT 
046406 023726 "WORD T2 
046410 024700 "WORD 3 
046412 026164 "WORD 4 
046414 030216 "WORD TS 
046416 031426 "WORD 6 
046420 033502 “WORD s«*T7 
046422 036714 “WORD «18 
046424 040432 "WORD 19 
046426 043612 "WORD T10 
046430 044606 WORD Til 

7413 

7414 , 

7415 ; FINALLY A GENEROUS PATCH AREA, 


BA 


TKEA TKOS FRT F % 
E Anca END FUNC #1 


TCH 


7416 
7417 


046450 
000005 


000000 
000003 
172522 


000224 
000240 


000001 
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; 

+ AND AN ADJUSTMENT TO ACCOUNT FOR THE 
; DESCRIBED IN “SUPPRG.MEM” (FOR REV C) 
; 


PATCH:: 
3 IF NZ, .€377 
3 .2.!377+1 
3 .ENOC 
LASTAD ;SET LAST USED ADDRESS. 
LSLAST:: 
.SBTTL HARD CODED P-TABLE 
zee 
3 DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
i 
BGNSE TUP 1 
BGNPTAB 
. WORD 172522 
. WORD 224 
. WORD PRIOS 
ENDP TAB 
ENDSE TUP 
.END 


H16 


"LASTAD BIT7” HACK 


L1010e: 


L10104;: 


«WORD TSFREE 
-WORD TSSIZE 


SEQ 202 


Li0104-./2-1 


T16 
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cea WEE END FUNC #1 CRO M1200 20 84 08:12 130-2 SEQ 203 
ADOSSR 011612 G CsAU = 000052 DEBUGM 011304 FATERR= 000060 HIADOR= 001400 
ADR == 900020 G CSAUTO= 000061 DEVCNT 002166 G FATFLG 002170 G HIMEM = 007776 
AMBTSS 006156 CSBRK = 000022 DEVORO 023420 FERCM 011374 HOE = 100000 G 
ASSEMB= 000010 C$BSEG= 000004 DEVNRD 023337 FIFEXP 011642 G HPM1 046104 
A1716 = 000003 CsBSUB= 000002 DEVNXR 023255 FIFiMS 011714 HPM2 046135 
BADDAY 003110 G CSCEFG= 000045 DEVON. 023173 FIFQMS 011763 HPM3 046157 
BADSSR 016374 G CSCLCK= 000062 DEVSUM 023136 FILLME 020216 IBE = 010000 G 
BAR = 174402 CSCLEA* 000012 OFPTBL 002124 G FNOINT 004113 I0U) * 000040 G 
BENBSW 002174 G C$CLOS= 000035 DIAGMC= 000000 FORCER 002144 G IER =* 020000 G 
BIE = 040000 CSCLP1= 000006 DICEA = 900001 FREE 003072 G IFAULT 004154 
BITO = 000001 G CsCVEC= 000036 OLCYL = 000177 FREEHI 003076 INCERK 017566 
BITOO = 000001 G CSDCLN= 900044 DLONER= 100200 FRESIZ 003074 G INTCPC 016644 
BITO1 = 000002 G CsD00U= 000051 DLERR = 177730 FUSI 004015 INTFLA 016641 
BITO2 = 000004 G CSORPT= 000024 OLGETS= FSAU = 000015 INTMAS 016640 
BITOS = 000010 G Csdu_ = 000053 DLROHD= 000010 FSAUTO= 00002C INTR 016712 G 
BITO4 = 000020 G CSEDIT= 000003 DLRONH= 000016 FS$BGN = 000040 INTREC 002172 G 
BITOS = 000040 G CSERDF= 000055 OLSR = 000013 FSCLEA= 000007 INTVEC 016642 
BITO6 = 000100 G CSERHR= 000056 ° FSDU = 000016 INTX 004176 
BITO7 = 000200 G CSERRO= 000060 DSBINT 016700 FSEND = 000041 IOKCKI= 000200 
BITOS = 000400 G CSERSF= 000054 DUAD1I2 004541 FSHARD= 000004 IOKSTP= 000001 
BITO9 = 001000 G CSERSO= 000057 DUFLG 003060 G FsHw = 000013 IPRI 002160 G 
BIT1 = 000002 G CSESCA= 000010 DUMMY 003030 FSINIT= ISR) = 000100 G 
BIT10 = 002000 G CSESEG= 000005 EF .CON= 000036 G FSJMP = 000050 IvEC 002156 G 
BIT11 = 004000 G CSESUB= 000003 EF .NEW= 000035 G FSMOD = IxX€ = 004000 G 
BIT12 = 010000 G CSETST= 000001 EF .PWR= 000034 G FSMSG = 000011 IsAU = 000041 
BIT13 = 020000 G CSEXIT= 000032 EF .RES= 000037 G FSPROT= 000021 ISAUTO= 000041 
BIT14 = 040000 G CSGETB= 000026 EF .STA= 0G FSPWR = 000017 ISCLN = 000041 
BIT1S = 100000 G C$GETW= 000027 EMAXDU 017521 FSRPT = 000012 Is0U = 000041 
BIT2 = 000004 G CSGMAN= 000043 N . FSSEG = 000003 ISHRD = 000041 
BITS = 000010 G CSGPHR= 000042 ENAINT 016646 F$SOFT= 000005 ISINIT= 000041 
BIT4 = 000020 G C$GPLO= 000030 ENVIRN 021356 FSSRV = 000010 I$MOD = 000040 
BITS = 000040 G CSGPRI= 000040 EPRTSW 002146 G F$SUB = 000002 IsMSG = 000041 
BIT6 = 000100 G CSINIT= 000011 EPRT1 005672 F$SW = 000014 I$PROT= 000040 
BIT7 = 000200 G CSINLP= 000020 EPRT2 005672 FSTEST= 000001 ISPTAB= 000041 
BIT8 = 000400 G CS$MANI= 000050 EPRT3 005672 GDDAT 003112 G IsPWR = 000041 
BIT9 = 001000 G C$MEM = 000031 ERCM 011405 GERRMA 002142 G ISRPT = 000041 
BOE = 00 G CSMSG = 000023 ERRHI 002202 G GETPAT 020722 G ISSEG = 000041 
BRINIT 004355 CSOPEN= 000034 ERRK 017500 GETSEL 021004 G ISSETU= 000041 
BSELO = 000000 CSPNTB= 000014 ERRLO 002204 G GSCNTO= ISSFY = 000041 
BSEL1 = 000001 CSPNTF= 000017 ERRNO = 002120 GSDELM= 000372 IsSRv = 000041 
CHKAMB 016540 CSPNTS= 000016 ERRVEC= G GsDISP= 000003 IsSuB = 000041 
CHKMAN 021226 G CSPNTX= 000015 ERTABE 0033350 GSEXCP= 000400 IsTST = 000041 
CHKTSS 017060 CsQIO = 000377 ERTABL 003150 G$HILI= 000002 J$JMP = 000167 
CKDROP 017776 C$RDBU= 000007 ESUM 017502 GSLOLT= 000001 KIPARO= 172340 
CKEMAX 017624 CSREFG= 000047 EVi s G$NO = 000000 KIPAR1= 172342 
CKMSG 011032 G CSRESE= 000033 EXBCNT= 000010 GSOFFS= 000400 KIPAR2= 172344 
CKMSG2 011152 G CSREVI= 000003 EXPBRE 016176 G GSOFSI= 000376 KIPARS= 172346 
CKRAM 010354 G CSRFLA= 000021 EXPD 002176 G G$PRMA= 000001 KIPAR4= 172350 
CKRAM2 010730 G CsRPT = 000025 EXPGOT 004431 G$PRMD= 000002 KIPARS= 172352 
CMPMEM 320402 CSSEFG= 000046 EXPGT2 004465 G$PRML = KIPAR6= 172354 
CONFIG 020044 C$SPRI= 000041 EXPMSG 002266 G G$RADA= 000140 KIPAR7= 172356 
COUNT 002254 G CSSVEC= 000037 EXPREC 016170 G G$RADB= KIPORO= 172300 
CSR = 174400 CsTPRI= 000013 EXTA 005232 G$RADD= 000040 KIPOR1= 172302 
CSRADD 002154 G DAR = 174404 EXTEND 005230 G$RADL= 000120 KIPDR2= 172304 
CTAB 003116 G DATA 002256 G ESEND = 002100 G$RADO= 000020 KIPOR3= 172306 
CTABE 003130 G DATAFL 014710 ESLOAD= 000035 G$xXFER= 000004 KIPOR4= 172310 
CTABM 003116 G DATASC 020760 FATCHK 01/7724 G$YES = 000010 KIPORS= 1/2312 


J16 


CZTKEA Tk2s FRT END FUNC 21 MACRO M1200 20-APR-84 08:12 PAGE 130-3 SEQ 204 
YMBOL TABLE 

KIPOR6= 172314 LSREV 002010 G 110057 032124 NULCR 004426 PRIO4 = 000200 G 
KIPOR7= 172316 LSRPT 022674 G L10060 032312 NXM = 004000 PRIOS = 000240 G 
KTENAB 003102 G LSSOFT 046212 G L10061 036712 NXR 003636 PR106 = 000300 G 
KTFLG 003100 G L$SPC 002056 G L10062 034120 NXRERR 005176 G PRIO7 = 000340 G 
KTINIT 021444 L$SPCP 002020 G L10063 034512 NXRX 003675 PRMESS 013702 
KTOFF 020070 LSSPTP 002024 G L10064 035402 NXTU 022032 002264 G 
KTON 020052 L$STA 002030 G L10065 035630 L = 000100 PRMSGE 015246 G 
LERRMA 002140 G L$Sw =: 002134 G L10066 040430 ONEFIL= 000000 PRMSGO 015426 
LERRNO= LSTEST 002114 G L10067 037176 OSAPTS= 000000 PRMSG1 015473 
LISTAL= 000001 LSTIML 002014 G L10070 037434 OsAU = 000001 PRMSG2 615531 
LOE = 040000 G LSUNIT 002012 G L10071 043610 OSBGNR= 000001 PROASC 014540 
LOOPCN 002164 G L10000 002132 L10072 041022 O$BGNS= 000001 PRLASC 014605 
LOOPCO 012600 L10001 002144 L10073 041322 Os0U = 000001 PST32W 003104 G 
LOOPFL 003114 G L10002 005226 L10074 041630 OSERRT= PUNIT 022320 
LOT = 000010 G L10003 011516 L10075 044604 OSGNSW= 000001 Pw.011= 000021 
LSACP 002110 G L10004 011546 L10076 046046 OSPOIN= 000001 Pw.013= 000022 
LSAPT 002036 G L10005 011564 L10077 045032 O$SETU= 000001 PW.D22= 000020 
L$SAU 022366 G L10006 011572 L10100 046104 PASRPT 022064 Pw.NOP= 

L$AUT 002070 G L10007 011610 L10101 046226 PATCH 046432 G Pw.NO1= 000023 
LSAUTO 022572 G L10010 011626 L10102 046442 PATOAT 020756 Pw.RDE= 000024 
LSCCP 002106 G L10011 011640 L10104 046450 PC.ERA= 002400 PW.ROR= 000001 
LSCLEA C22646 G L10012 011712 MEMADD 013426 G PC.IER= 002000 Pw.ROS= 000005 
L$CO 002032 G L10013 012062 MENASC 021175 PC.NOO= 001000 Pw.RFI= 000003 
L$DEPO 002011 G L10014 012576 MENERR 021122 PC.REL= PwW.WCT= 000006 
LSDESC 003342 G L10015 013424 MENRES 021224 PC .REW= 000400 Pw.WFI= 000004 
LSDESP 002076 G L10016 013446 MESBFA 002716 G PKBCNT= 000006 PW.WFM= 000007 
L$DEVP 002060 G L10017 016174 MESBFN 014460 PKHI = 000004 Pw.WMI= 000010 
LSDISP 046404 G L10020 016202 MESHEA 014643 PKLOW = 00000. PW.WNP= 000011 
LSDLY 002116 G L10021 016210 MMVEC = 000250 PKTADD 007116 Pw.WTR= 000002 
L$DTP 002040 G L10022 016222 = 174406 PKTFRM 007060 P.ACK = 100000 
L$DTYP 002034 G L10023 016244 MSA.FR= 000006 PKTGET 011550 G P.CMD = 000037 
L$DU 022464 G L10024 016272 MSA.NO= 000000 PKTMES 011574 G P.CONT= 000012 
L$DUT 002072 G L10025 016432 MSA.NR= 000004 PKTNEW 007153 P.CVC = 040000 
L$DVTY 003334 G L10026 016742 MSA.VO= 000002 PKTRAM 004643 G P.FMT = 000140 
LSEF 002052 G L10030 022316 MSGEXP 011630 G PKTSSR 011520 G P.FORM= 000011 
LSENVI 002044 G L10031 022462 M 012536 G PNT = 001000 G P.GETS= 000017 
L3ETP 002102 G L10032 022570 MSGSTA 012022 G PRAMPK 013450 P.IE = 000200 
LSEXP1 002046 G L10033 022644 MSGSUB 013414 G PRBEXP 016164 P.INIT= 000013 
LSEXP4 002064 G L10034 022672 MS.ATT= PRBMSG 016032 P.MODE= 007400 
LSEXPS 002066 G L10035 023134 MS.EXT= 000200 PRBREC 016166 P.OPP = 020000 
LSHARD 046052 G L10036 023724 MS.RSD= 000001 PRBTOT 016117 P.POSI= 000010 
LSHIME 002120 G L10037 023572 MS.RSF= 000020 PRBYTE 015616 P.READ= 000001 
L$HPCP 002016 G L10040 023654 MS.RST= 000010 PRI = 002000 G P.SWB = 010000 
LSHPTP 002022 G L10041 024676 NBA = 002000 PRIADD 007532 P.WRIT= 000005 
L$HW 002124 G L10042 024116 NEWPAS 022020 PRIAO 007602 P.WRTC= 000004 
LSICP 002104 G L10043 024310 V 003062 G PRIBXO 007164 P.WRTS= 000006 
L$INIT 021606 G L10044 024510 NOINIT 004233 PRIEQU 007432 ave 002152 G 
L$LADP 002026 G L10045 026162 NOINTR 004117 PRIPKT 006712 G RAMASC 013616 
LSLAST 046436 G L10046 025240 NOITS 002136 G PRIRAM 007440 RAMDAT 002206 G 
L$LOAD 002100 G L10047 025560 NOMAN 021262 PRITAD 007646 RAMER 010456 G 
L$LUN 002074 G L10050 030214 NP.IR = 000200 PRITSS 005264 RAMERR 016204 G 
LSMREV 002050 G L10051 026506 NP.LO0* 000040 PRITO 007716 RAMEXP 016224 G 
L$NAME 002000 G L10052 026772 NP.OUT= 000100 PRIXOR 007314 G RAMFHR 014362 
L$PRIO 002042 G L10053 027220 NP.WRP= 000020 PRIOO = 000000 G RAMFOR 007470 
L$PROT 021576 G L10054 031424 NSI 004050 PRIO1 = 000040 G RAMHLD 010640 
L$PRT 002112 G L10055 033500 NSINIT 004305 PRIO2 = 000100 G RAMIOP 010644 
L$REPP 002062 G L10056 031700 NUL 004425 PRIO3 = 000140 G RAMPD 010715 


CZTKEA 
SYMBOL 


SSLSYM= 


TK2S5 FRT END FUNC #1 
TABLE 


010000 


an aH 


ang 


an 


$0. IDB= 
SO.IFB= 
SO.IFP= 
SO.ILD= 


TSSRFO 
TSSRH = 
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005736 


an 


AHO 


ao 


an 


900001 G 


TSTSTS= 


003716 


AAA AH 


an 


K16 


TS$AU = 
TS$$AUT= 
TS$$CLE= 
T$$DAT= 
T$$0U = 
T$$HAR= 
TS$$HwW « 
TSsINI= 
T$$MSG= 


T$$PC = 00000 


T$$PRO= 
TS$PTA= 
TS$$RPT= 
T$$SEG= 
T$$SOF = 
T$$SRv= 
T$$SUB= 
T$$Sw = 
TS$TES= 


T3NINT 


010031 


026011 


SEQ 205 


L16 
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T7DATA 035650 T8SSR 040014 T9.1 040466 XFERAS 016434 X$FALS= 000040 
T70TA 035712 TS8TSBA 040222 T9.2 041036 XNXM 017120 X$OFFS= 000400 
T7INT 036450 T8.1 036750 T9.3 041336 XORBFO 007246 X$TRUE= 000020 
T7LOOP 033536 T8.2 037212 T91L00 040610 XORFOR 007364 X1.COR= 020000 
T7MBF =6035744 TB2REJ 037622 T92L00 041154 xSTO = G X1.O0LT= 1 
T7NBA 036041 T83SREJ 037703 T93L00 041404 XST1 = 000010 G X1.MBZ= 017375 
T7NINT 036357 TO64REJ 0377335 T94TST 041742 xST2 * 000012 G X1.RBP= 

T7NNBA 036123 T9 040432 G = 000200 G XST3 = 000014 G X1.SPA= 040000 
T7PACK 035640 T9BFR 041712 UNITN 002150 G XST4 =#= 000016 G X1.UNC= 000002 
T7PKT 035702 T9BKGN 042367 UNREC = XSOBOT= 00000. X2.BUF = 000100 
T7RST 036566 TOBLK 041744 USI 004021 XSOCON 015022 X2.EXT= 000200 
T7RT2 036640 TOCHAR 043546 WAITF 016744 G XSOEOT* 000001 X2.0PM= 100000 
T7SSR 036270 TOCKRA 043326 G WC.IFA= 000200 XSOIE = 000040 X2.RCE= 040000 
T7SSRM 036200 TOCONV 042746 WC.IFE= 000002 XSOILA= 000400 X2.REV= 000077 
T7.1 033536 T9CT2 043140 wC.IGO= 000001 XSOILC*= 001000 X2.SPA= 035400 
17.2 034122 TODATA 041700 WC.IRE= 000010 XSOLET* 020000 X2.UNI= 000007 
7.3 034514 T9OPR 042546 WC.IRW= 0090004 XSOMOT= 000200 X2.WCF = 002000 
7.4 035404 T9GETS 042126 wC.I0T*= Gv0100 XSONEF = 002000 X3.0CK= 000010 
T8 036714 G TOHIAD 041732 WC.I1T= 000040 XSOONL= 000100 X3.MBZ= 

TSBFR 037472 THT 041740 wWC.ISR= 000020 XSOPED= 000010 X3.MDE= 177400 
T6BF2 037542 TOLOAD 041734 WF .IED= 000010 XSORLL= 010000 X3.0PI= 000100 
TEDATA 037460 T9LOOP 040466 WF .IER= XSORLS= 040000 X3.REV= 000040 
T8DTA 037530 TOMSGB 042271 WF .IHI= 000200 XSOTMK= 100000 X3.RIB= 000001 
T8LOOP 036750 TONINT 042455 WF .IRE= 000040 xSOVCK= 000020 X3.SPA= 000200 
TENBA 037562 TONXM 042637 WF .IWF= 000020 XSOWLE= 004000 X3.TRF= 000020 
TENINT 040144 TOPACK 041670 WF .IWR= 000100 XSOWLK = X4.HSP= 100000 
TSPACK 037450 TOPAR6 041736 WF .I3R= 000002 XS1CON 015067 X4.MBZ= 017400 
T8PK2 037520 TOSETG 043504 WF .I4R= 00000 XS2CON 015134 x4.RCE= 

TEREST 040324 TOSWRT 043436 WRTCHR 010152 G XS3CON 015201 X4.TSM= 020000 
T8RT2 040366 T9TBE 042076 WRTERR 005011 xXCOMM 003070 G X4.WRC= 000377 
T8SR2 040070 * TOWRTS 042202 WRTMSG 004754 X$ALWA= 000000 


- ABS. 046450 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 31240 WORDS ( 123 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:30:00 
CZTKEA.BIC,CZTKEA/-SP=SVC/ML,CZTKEA 
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